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Program^s que f azem programas 

O Producer e o-Creator no CPDde MS 



PDRIVE •. 
e SYSTEM 
do NEWDOS 



AutomaQao: 

ofuturo 

presente 



Chegou 
o Cobra 210. 

Compare seu micro com ele 
e veja o que voce esta perdendo. 

Ja esta no mercado o Cobra 2 1 0, o micro da 
Cobra 

Mais bonito e mais avancado do que os outros 
micros de uso profissional que voce conhece. 

Se e mais bonito no desenho, o Cobra 210 e mais 
avancado na tecnologia Fruto de experiencia de 7 
anos da Cobra na area de microcomputadores, o 
Cobra 210 incorpora caracteristicas inovadoras que 
fazem dele urn equipamento de facil utilizacao, 
grande flexibilidade e aplicabilidade. 

Podendo trabalhar com tres sistemas operacio- 
nais-SOM,SPMeMUMPS-oCobra210eum 
micro voltado para aplicacoes profissionais em pe- 
quenas e medias empresas, processamento distri- 
buido e setorial em grandes organizacoes, entrada e 
comunicacao de dados, automacao de escritorios e 
processamento cientifico. 

Ts^da3^s^^ktxDnicajdaChbta2lO esta con- 
tida numa unica placa Esta mesma filosofia de 
construcao foi aplicada aos outros equipamentos da 
familia Cobra 200: o TI 200, terminal inteligente as- 
sincrono e o TR 207 remote sincrono. Esta padroni- 
zacao, alem de diminuir os custos de rabricacao - re- 
duzindo assim o preco final para o usuario -, tam- 
bem permite que um terminal da linha possa ser fa- 
cilmente transformado num micro. 

Compativel com o Cobra 305, o Cobra 21 ja 
chega com uma grande e variada biblioteca de soft- 
ware. 

Compativel com toda a familia Cobra, o 2 1 e 
uma excelente porta de entrada para a mais comple- 
te linha de equipamentos e sistemas disponfveis no 
mercado. 

Contate a filial da Cobra mais proxima de voce 
para conhecer o Cobra 21 de perto. 

Depois, faca voce mesmo as comparacoes. 

■ii Cobra 210 

O Micro da Cobra. 



O 
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Quern usa computador para controles e decisoes 
empresariais, organizacao de assuntos pessoais, 
trabalhos escolares ou simplesmente para se divertir, 
sempre quer respostas exatas. 

E por saber muito bem disso, a VERBATIM e a 
empresa que mais investe em pesquisa e 
desenvolvimento de produtos para alcancar e manter sua 
posicao de lideranca em qualidade de mi'dia magnetica flexivel - 
e garantir as respostas exatas que voce espera. 

A VERBATIM ja trouxe para o Brasil o resultado de todos esses 
anos de trabalho. Sua fabrica brasileira esta produzindo os disquetes 
de 5 1/4 e de 8 polegadas, os mesmos que lideram as vendas no 
mundo inteiro. 

E se prepara para lancar suas fitas magneticas que vao trazer 
um novo padrao de qualidade, bem acima das normas tradicionais. 
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Maior fabricante mundiaJ de disquete 
Fone: (01 1)853. 1209 -SP 



Datalife tem resposta para tuda 



A geracao def initiva 6 sempre a praxima 




DANCING DEMOI 



Voce s6 descobre o quanto precisa de urn Micro-Corn- 
putador JR da Sysdata depois que o conhece de perto. 

Voce vai ter certeza de que fez um 6timo negocio ao 
adquirl-lo assim que o colocar na sua empresa ou na sua 
casa. 

JR da Sysdata e rapido, e versatil, e compacto. 
APLICAQOES: 

Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 
que, controle de clientes, relatdrio de clientes, mala direta, 
calculos de orcamentos f inanceiros,controle de processos 
industrials, calculos de engenharia, calculos de estatfsti- 
cas, funcoes matematicas, funcoes logicas em cadeia de 
caracteres (STRINGS), graficos, jogos animados, progra- 
mas educacionais. 
O JR PERMITE AINDA: 

acesso a grandes sistemas de computacao, a comuni- 
cacao entre os departamentos de Empresa, efetuar pro- 
gramas especfficos para cada Empresa. 

E, como se nao bastasse, ele e o Micro-Computador de 
me nor preco do mercado 

Com todas as qualidades que tern, o JR da Sysdata nem 
precisava ser tao econOmico. Mas e. 

Afinal, ele e o mais completo Micro-Computador de sua 
geracao. 

Inclusive no preco. 

Voce pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 




SSmdhfribn) AV - pacaembu, 788 

^IISl CEP 01155 - TEL: 67.5900 



REVENDEDORES' SAO PAULO/Capital - Ad Data 864.8200; ADP System 227.6100; Biicker 881 .7995; Cinotica 36.6961; Compumarketing 212.9004; Compute 852.8533; Com- 
puterland 231.3277; Foto Leo 35.7131; Fototica 853.0448; Guedes 289.9051; Horst_20J3.5597; Interface 852.5603; Lema 210.5929; MicroreiJ8L0022^ M^ 
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SERIERACIMEC1800 

Telsist1802e1802D: 
Microcomputadores de baixo 
custo, que crescem de acordo 
com as necessidades de 
processamento pessoal, 
profissional ou da Empresa. 

Discos flexfveis,disco rigido, 
perifericos e comunicagoes 
(inclusive emulando 3270's, 
2780 e 3780). 

Quando chegar o momento 
de expandir para um ambiente 
multiusuario, as mesmas 
unidades, sem quaisquer 
modif icagoes, passarao a ser 
usadas como estacoes de 
trabalho satelites dos 
concentradores 1 806. 

Produtos com a qualidade 
eosuporteda RACIMEC. Alto 
desempenho a baixo custo. 
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-|^ DOIS IMPORTANTES 
A^ COMANDOSDO 

NEWDOS - Utilizar urn 
sistema operacional com 
eficiencia e fundamental. 
Neste artigo, Renato 
Degiovani descreve as funcoes 
dos comandos SYSTEM e 
PDRIVE, ambos oferecendo 
possibilidades de serem 
explorados por voce, usuario. 



'J A NAOPERCADE 
^v MEMORIA O VIDEO 
DE SEU APPLE - O que o 

usuario precisa saber para 
dominar a memoria do video 
de seu micro e o tema deste 
artigo de Evandro 
Mascarenhas de Oliveira, 
que explica o funcionamento 
da pagina 1 no modo 
texto/grafico, em baixa e alta 
resolucao. 
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DISTRIBUTED BY 
HERRT OF TEXRS 
COMPUTER SYSTEMS 




PRESS <R> OR <B> TO 
SELECT DESIRED MENU 









AQ PROGRAMASQUE 
tO ESCREVEM 

PROGRAMAS - Conheca 
essa ferramenta de trabalho 
para os usuarios de 
microcomputadores - analistas 
profissionais ou leigos: 
Creator e Producer, dois 
programas capazes de criar 
outros programas de acesso 
a bancos de dados. 
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(iA AUTOMACAO 
v 6 * BANCARIA: 
O BANCO MAIS RAPIDO 
E EFICAZ - A Informatica 
no dia-a-dia do cidadao 
comum. Nesta reportagem, 
MICRO SISTEMAS mostra 
os servicos computadorizados 
que hoje sao oferecidos por 
um numero cada vez maior 
de bancos. 
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Muito se tern falado, ultima- 
mente, sobre automacao. Va- 
ries eventos - feiras, semind- 
rios e simpdsios - ocorreram 
durante os dois meses passa- 
dos, principalmente em Sao Paulo e neles foi 
promovido um amplo debate sobre o tema. 
Com isto, o espaco dedicado a automacao nos 
jornais e revistas foi grande, e esta "badala- 
cao" 4 important e no sentido de fornecer con- 
dicoes para que a discussdo torne-se ainda 
mais abrangente. 

Dadas as conseqiiencias imediatas e irrever- 
sfveis da automacao na estrutura sdcio-econo- 
mica, notadamente nos ntveis de emprego e 
produtividade, 4 imprescindivel que a introdu- 
cdo deste processo em um contexto economico 
como o dos paises do Terceiro Mundo seja fei- 
ta de maneira consciente. 

Na esfera industrial, a automafdo tern 
causado bastante polemica. Os avancos da ro- 
bdtica sdo inconstestdveis e hofe, nos paises 
desenvolvidos, discute-se esta evolucdo, pos- 
to que, inicialmente pensados para executor 
tarefas insalubres. perigosas e repetitivas, 
atualmente os robot id sdo projetados visando 
os aspectos da inteltgencia simulada; flexibi- 
Made (capacidade de realizar tarefas diversas) 
e precisdo, o que definitivamente muda o 
conceito de uso. 

No Brasil. as mudancas tern ocorrido rapt- 
damente. No setor comercial, diversas organi- 
zacoes de comircio vare/ista comecam a auto- 
matizar seus pontos de venda, experimentan- 
do com isto modificacoes em suas rotinas de 
trabalho. Os terminals de transferencia de fun- 



dos, introduzidos pelos bancos em algumas 
grandes lojas, fazem parte do novo concetto 
de "dinheiro eletronico", que permitird aos 
lojistas maior seguranca para agenciar o cr4di- 
to e, alardeava a manchete de um jornal, pro- 
moverd "o fim do cheque voador". AI4m de- 
les, computadores: terminals de calxa inteli- 
gentes e a identificacdo dos produtos pelo cd- 
digo de barras (sobre Cddigo de Barras, ver 
MS n9 24, pdgina 70) sdo algunsdos recursos 
que promoverdo, nas lojas, um aumento de 
eficiencia em suas operacoes internas de for- 
neclmento de informacdo e controle dos esto- 
ques e das vendas. 

Os bancos tambim tern Investldo pesada- 
mente em automacao, e esta tornou-se, inclu- 
sive, o mais envolvente apelo de marketing 
lancado pelas instituicoes financeiras. passan- 
do a "significar" os aspectos de inovacdo, ere- 
dibilidade e rapidez procurados pelos client es. 

Na drea de automacao de escritdrio, muito 
se tern falado em semindrios e cursos - alguns 
cartssimos - e pouco feito de forma efetiva. 
Isto porque o conceito de escritdrio automati- 
zado ainda 4 algo indefinido ate na sociedade 
norte-americana, que ndo se cansa de questio- 
nar o que 4 e a forma como deve ser introdu- 
zido. A imagem folcldrica do "escritdrio do 
futuro", com a "abolicdo do Idpis e papel", 
alim de ser perigosa, pois ndo espelha a reali- 
dade, s6 4 possivel de ser "ensaiada" nas gran- 
des corporacoes que puderem investir macica- 
mente num sistema integrado. 

Nas m4dias e pequenas empresas brasilei- 
ras, talvez o "office automation" fique, por 
enquanto, por conta de um processador de 



texto; um terminalzinho de videotexto e olhe 
Id. As atividades prioritdrias e mais intensasda 
empresa deverdo ser automatizadas em pri- 
meiro lugar, mas ainda vdo conviver durante 
um bom tempo com setores que permanecem 
em suas formas tradicionais de trabalho, de- 
vendo o novo e o antigo se integrar de modo 
ndo traumdtico. 

O importante, contudo, 4 constatar que 
diversos setores profissionais tern debatido 
como harmonizar a automacao, indispensdvel 
para que a atividade economica evolua em efi- 
ciencia e ganhe em potencial competitivo e 
decr4scimo de custos, com nossa condicdo, 
caracteristica de nacdo em desenvolvimento, 
de ndo poder abortar nossos m4todos tradicio- 
nais de producdo de forma abrupta, em favor 
de receitas externas e em detrimento do ni'vel 
de emprego e da tranquilidade interna. 
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Nesta edlcdo, publicamos a ultima licdo 
de nosso Cur so de Assembler Z-80. Foram vd- 
rios meses de convivencia, e gostaria de agra- 
decer e ressaltar o senso profissional do pro- 
fessor Amaury Moraes Junior, que continuard 
presente com seus artigos em MS. 
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A avanpada tecnologia do raio laser para 
converter os dados de saida de computador 
em imagens prontas para uso. 

As Processadoras/lmpressoras de Microimage™ Kodak KOMSTAR sdo verdadeiros 
perifericos de computador, que oferecem notdveis melhoramentos nas operacoes de 
saida de dados, ao mesmo tempo em que reduzem os custos operacionais. 




Permitem ainda a obtencao de tftulos em vdrios tamanhos, microfichas com indice 
em diversos formatos. Tudo com rapidez e perfeigao, sempre. Mas alem dessas, existem 
outras vantagens que voce precisa conhecer. 

Ndo espere mate tempo. Envio hoje mesmo o cupom abaixo, solicitando o Guia 
Kodak para as Processadoras/lmpressoras de Saida de Dados de Computador. 
Voce vera, em aetalhes, tudo o que as Processadoras/lmpressoras Kodak KOMSTAR 
podem oferecer. 

Ao receber seu Guia, voce estard abrindo as portas de sua empresa para a mais 
avancada tecnologia existente no mundo da informdtica. Uma tecnologia que tern a 
garantia de uma marca que voce conhece e confia: Kodak. 



CUPOM DE RESERVA GRATIS 

Sim. quero receber gratuitamente o Guia Kodak para as Processadoras/lmpressoras de Saida de 
Dados de Computador. 

Nome 

Cargo 

Empresa 

Endereco _ 

CEP CIDADE ESTADO 

(A Kodak atenderd os pedidos por ordem de chegada e na medida dos seus estoques). 



R. 




Departamento de Sistemas Micrograficos 

KODAK BRASILEIRA COMERCIO E INDUSTRIA LTDA. 

Rua George Eastman, 213 • 05690 • Tel.: (Oil) 542-0111 • Sdo Paulo • SP 




O sorteado deste mfis, que receber* uma as 
sinatura de urn ano da MICRO SISTEM AS, 
* Jose da Lima H. Neto. da Sab Paulo. 



1-7000 DA ITAUTEC 



Oi pessoal. Sou um leitor que gosta mui- 
to dessa revista e quando tenho umaduvida 
vou logo consultar a minha MICRO SISTE- 
MAS para resolver o meu problema. A mi- 
nha pergunta agora e a seguinte: estou co- 
mecando a trabalhar com o microcomputa- 
dor 1-7000 Junior, da Itautec, e queria saber 
com que linha este equipamento e compatf- 
vel (...). 

Ricardo Negrao de Oliveira 
Taguatinga - DF 

Primeiro, Ricardo, a aquipa manda um 
abraco pre voce. £ muito gostoso receber 
uma carta simpatica como a sua: obrigada a 
escreva sempre, certo? Bom, mas com rela- 
pao a sua pergunta sobreo 1-7000, da Itautec, 
ninguem melhor que o pr6prio fabricante 
para responder a sua duvida: 

"A Itautec investe grande parte do sou 
esforco em pesquisas na area de Inf ormatka. 
Como resultado destes investimentos, surgi- 
ram diversos produtos nesta area. A tecnolo- 
gia tanto a nlvel de hardware como software, 
pertence a Itautec, portanto, segue uma li- 
nha propria. 

A Itautec lancou uma famflia da micro- 
computadores que procure atingir as diver- 
sas f aixas de usuarios existentes no mercado. 
Esta famflia e composta, basicamente, da 
trds modelos: 

1. JUNIOR - Voltado ao uso pessoal e aos 
prof issionais libera is; 

2. JUNIOR-E - Dirigido as empresas de pe- 
queno e medio porte; 

3. 1-7000 - Especff ico para empresas com 
volume maior de processamento e com po- 
tencial de utilizapao das diversas conf igura- 
poes possiveis. 

Os modelos sab, em termos de hardware 
a software, identicos. A diferenpa esta na 
maior ou manor possibilidade de expansab. 
Existe, inclusive, a possibilidade de evolu- 
pao dentro da famflia, isto e: pode-se passar 
do JUNIOR para o JUNIOR-E, a deste para 
o 1-7000, havendo uma total compatibilida- 
de entre o sistema operacibnal (SIM/M) a o 
software disponfvel. 

O SIM/M e compatfvel com a versab 
CP/M 2.2. Esta oppao deve-se ao fato deste 
sistema ser bastante difundido a com aftfssi- 
mo numero de software disponfvel no mer- 
cado. Alem das facilidades padrab oferecidas 
pelo CP/M 2.2, o SIM/M incorporou um 
conjunto extra de oppoes que aproveitam ao 
maximo o hardware da famflia da micro- 
computadores, a que permite, entre outres 
coisas, a interacab com computadores de 
grande porte (...)." 
Helton Figueiredo de Oliveira 
Gerente de Produto — micro computadores 
da Itautec 



RENUM 



Fago parte do grupo de privilegiados, is- 
to e. sou assinante de MS. O motivo desta, 
entretanto, e consulta-los sobre o programa 
RENUM, publicado em MS nP 20, de maio 



de 83, pag. 70, pois apesar das correpoes in- 

seridas nos numeros posteriores de MS, o 

programa nab funciona no meu CP-500. 

Minhas duvidas sao: 

IP) Os enderepos das tabelas (SA) e as ro- 

tinas da ROM sab compatfveis com o TRS- 

80 modelo III? 

2P) A instrupao LD IX, TABAUX (linha 

1740) e de quatro bytes, no caso DD21 

F0FF. Mas voces publicaram a correpao 

no fotmato DDF0FF. Esta correto? 

3P) Se TABAUX armazena numeros das 

linhas antes da renumeracab, 16 bytes sao 

suficientes para isso, ja que TABAUX EQU 

= FFF0. 

Pode ser que o problema esteja na tercei- 
ra hipotese que apresentei, pois o RENUM, 
no meu caso, renumera todas as linhas mas 
nab renumera GOTO, GOSUB, ON A..., 
dando erro 5 (linha inexistente). Help. 
Heleno F. Araujo 
Belem - PA 

Como de habito, mandamos sua carta pa- 
ra o Jose Ribeiro Pena Neto, autor do pro- 
grama "Renumere seus programas em BA- 
SIC". Eis a resposta: 

"Recebi da redacab de MICRO SISTE- 
M AS uma c6pia da carta em que voce expde 
suas duvidas sobre o programa RENUM. A 
prop6sito, devo Ihe informar que: 

1 — Os enderepos de rotinas da ROM e tabe- 
las da RAM utilizados no programa parecem- 
me os mesmos do modelo III. O programa ja 
foi testado em um Naja e funcionou. 

2 - Quanto a linha 1740, voce" esta certo. A 
forma correta e DD21 F0FF. 

3 - A funpao de TABAUX no programa e 
armazenar provisoriamente o numero da li- 
nha em ASCII, antes de converter em bina- 
rio (linha 2090). Voce 1 deve ter confundido 
com TABELA. 

Talvez o seu programa nab esteja funcio- 
nando por causa de uma ultima correpao 
que nab foi publicada na revista: na linha 
2090, a instrupao e CD5A1E, e nab como 
foi publicado." 
Jos6 Ribeiro Pena Neto 
Belo Horizonte — MG 



JORNADA NO APPLE 



Muito me interessou o divertido progra- 
ma "Jornada nas estrelas", veiculado em MI- 
CRO SISTEMAS nP 25 (edicab de outubro 
de 83), de autoria do Dr. Kazimierz Mala- 
chowski. Para ser maispreciso, tal programa 
"deve" ser divertido, pois apos a digitacab 
do mesmo, a nave estrelar Enterprise nab 
saiu do lugarl Troca de olhares, entre eu e o 
meu filho, realmente constrangedores, pois 
ele ja estava a postos na ponte de comando, 
empunhando sua pistola laser e tudo maisl 

Para melhor informacab, meu equipa- 
mento e um Apple II, que utiliza a lingua- 
gem Applesoft, com a qual, infelizmente, 
nab tenho a intimidade necessaVia. Devido 
ao exposto, solicito que, se possfvel, efetuas- 
sem uma consulta ao Departamento Tecnico 
de MS o qual, acredito eu, poderia solucio- 
nar os problemas relativos as diferenpas en- 
tre as duas linguagens, apesar de estar ciente 
de que o autor recomenda rodar o programa 
em equipamentos da linha Sinclair. 

Por mim, continuaria com as tentativas 
de solucionar o problema surgido se nao fos- 
se o ansioso olhar de meu garoto, que diaria- 
mente aguarda-me a porta de casa com a pis- 
tola laser em punho, como a dizer-me: "— 
Quando partimos, Capitab Kirk?" 
Paulo A. Borges 
Rio de Janeiro — RJ 



Realmente, o programa "Jornada nas es- 
trelas" foi desenvolvido para equipamentos 
da logica Sinclair. Tentar adaptar o progra- 
ma publicado para a linha Apple resultaria 
em maior esforco do que o necessark) para 
desenvolver um "Jornada nas estrelas" espe- 
cialmente, ou melhor, diretamente no Apple. 

Por uma questab de decisab editorial, 
n6s nab fazemos conversab de sistemas. Mas 
aproveitamos este espaco para pedir aos lei- 
tores que nos mandem colaborapoes para os 
equipamentos compatfveis com o Apple e, 
muito em especial, um "Jornada nas estre- 
las" para que o nosso amigo Paulo nao seja 
mais interpelado pelo seu filho equeosdois 
possam voar pela galaxia na Enterprise. 



ESCLARECENDO DUVIDAS 



Tenho uma serie de duvidas sobre o TK 
2000 Color: em primeiro lugar, aonde foram 
parar os 64 K de RAM anunciados, se no 
prpprio manual de operapab do computador 
ha um mapa de memPria onde a ROM esta 
inclufda neste 64 K? 

Outro problema e o manual tecnico (fer- 
ramenta indispensavel para um estudo apro- 
fundado do computador, tanto em hardware 
como em programacab Assembler) : este ma- 
nual existe ou sera somente uma promessa 
que nab sera cumprida (como no caso do ge- 
rador de som para o TK-85)? 

Por ultimo, gostaria tambim de saber 
qual a real compatibilidade do TK2000 com 
o Apple? Qual a diferenpa entre os circuitos 
eletronicos e as diferenpas do programa resi- 
dente na ROM? 

Reconhepo que o equipamento, por ser 
um lanpamento, deva enfrentar certos pro- 
bleminhas, e e por isso que escrevo, na ten- 
tativa de resolver as principals duvidas dos 
novos usuarios: 

- 64 K de RAM com ROM inclufda? 
-Compatibilidade de hardware/software 
com o Apple? 

— Manual tecnico quando? 
Fernando S. OsPrio 
Porto Alegre - RS 

Remetemos suas duvidas pare a Microdi- 
gital, e esta nos enviou a seguinte respoita: 

"Realmente, o mapeamento esta certo, 
pois a ROM esta inclufda nos 64 K de RAM, 
mas e possfvel desfrutar os 64 K de RAM 
usando-se a linguagem Assembler, o que esta 
explicado no manual do TK2000 Color que 
esta sendo enviado aos usuarios desde a se- 
gunda quinzena de junho. 

A compatibilidade do TK2000 Color 
com o apple so existe em Applesoft BASIC, 
isto 6, todos os programas em BASIC do 
Apple rodam no TK2000 e vice-versa. A di- 
ferenca basica dos programas residentes na 
ROM 6 o enderecamento." 
Ricardo Tondowski 
Assessor da Diretoria da Microdigital 



MSAGRADECE 



(...) Baseado nas informacoes obtidas 
atraves de MICRO SISTEMAS, jd comprei o 
micro AS- 1000. Recebi exatamente o que 
eu queria receber: enderepos, dados tec ni cos 
etc. Fui ao Rio de Janeiro, na Engebras (fa- 
bricante do AS-1000) e acabei comprando o 
equipamento (...). Agradeco, mat agradepo 
mesmo. Muito, muito. Continuem assim. Es- 
se 6 um papel bonito de imprensa. 
Antonio Carlos Caiado Pereira 
Sio Joab Del Rei - MG 
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A tftulo de colaboracao, informo I MI- 
CRO SISTEMAS que foi levado ao ar, aqui 
em Belo Horizonte, pela Ridio Universidade 
FM Stereo (106.1 MHz), da PUC, o primeiro 
programa de Informitica no nJdio. Trata-se 
do Micro-Show, que esta" sendo transmitido 
todos os domingos as 18 horas. O programa 
Micro-Show, que transmite software enviado 
pelosouvintes, tern sido um sucesso. 
Marcio Gomes 
Belo Horizonte — MG 



prestacAo DE SER VI COS 



Sendo leitor desta conceituada revista 
(na minha opiniao, a melhor no g§nero), ve- 
nho tentar a minha ultima esperanca de re- 
solver o problems do meu CP-200, pois j4 
considero um caso quase perdido: meu CP- 
200, que esta fora da garantia, apresen- 
tou defeito. Fui ao Rio de Janeiro e o en- 
treguei a firma Clappy que prometeu con- 
serta-lo em 15 dias, no mdximo. Resultado: 
entreguei o computador na Clappy em 16/ 
12/83 e retireio em 21/03/84, sem que te- 
nha sido feito o mmimopossfvel no equipa- 
mento. Alegacao: so estamos consertando 
computadores de maior porte (?). Me indi- 
caram a firma CSM, que prontamente rece- 
beu o aparelho e prometeu conserta-lo em 
10 dias. Resultado: receberam o micro em 
21/03/84 e eu fui busca-lo no dia 31/05/84, 
tambeTn nas mesmas condicoes, isto 6, sem 
solucao. Al ids, havia apenas uma pequena 
diferenca: faltava o CI 74LS165, que afir- 
maram estar queimado. 

Solicito uma ajuda e que esta carta seja 
publicada para que talvez algudm se interes- 
se pelo problema, pois nao tenho condicao 
de ficar viajando sem solucionar nada. Afi- 
nal, ja fazem seis meses que me enrolam: 
nao sei se por incompetencia da prestacao 
de servicos aos usuarios, ou da firma que 
nao fiscaliza tais fatos. 
Jefferson de Oliveira e Silva 
Volta Redonda - RJ 

Como i nosso costume, Jefferson, man- 
damos a sua carta para a Clappy Computa- 
dores e Sistemas Ltda. e para a CSM — Co- 
mercial Sistemas Manutencao Ltda. Agora 
reproduzimos a resposta de ambas: 

"Revendo nossos registros, verrficamoi 
que o CP-200 do Sr. Jefferson de Oliveira • 
Silva, de stria 4079, foi aceito para conserto 
em nossa empresa em 16/12/83 pela nota 
fiscal 1431, como equipamento fora da ga- 
rantia. 

Devido ao nao recebimento dos compo- 
nents* eletrdnicos da Prol6gica, necessirios 
ao reparo, apesar de reiteradas solicitacoes 
ao fabricante, informamos ao cliente Jeffer- 
son em 10/02/84 que o seu equipamento 
nao poderia ser reparado em nossa empresa. 
O cliente somente procedeu a retirada do 
aparelho em 21/03/84 pela nota fiscal 2487. 
Portarrto, a partir desta data terminou nossa 
participapao no caso, como alias o proprio 
cliente relate em sua carta. 

A falta de components! eletrdnicos do 
CP-200 nao so nos fez nio aceitar novos 
reparos como tambem paralizarmosa sua co- 
mercializacao. Lamentamos profundamente 
este fato, mas apesar de nossos esforcos nio 
obtrvemos meios junto ao fabricante para o 
reparo do equipamento." 
Roberto Grensell 

Coordenador da Area de Computadores da 
Clappy 

"Temos a esclarecer que recabemos o 
equipamento do Sr. Jefferson de Oliveira e 
Silva, nosso estimado cliente, com pesadas 



avarias a ponto de ser necessario a troca de 
10 CIs da placa de circuitos impresses. Mes- 
mo assim nao logrou bom funcionamento. 
£ disciplinar em nosso Iaborat6rio efetuar 
um exaustivo teste de conf iabilidade a cada 
troca de componente, o que 6, via de regra, 
um teste demorado. A cada teste, o equipa- 
mento apresentava um novo defeito. J* tf- 
nhamos decidido efetuar e troca da placa 
quando o Sr. Jefferson resolveu retirar o 
aparelho, reconhecidamento pelo longo 
tempo decorrido. 

O Sr. Jefferson nao nos procurou dire- 
tamente e preferiu apelar para esta coluna, 
julgando-se, presumivelmente, injusticado. 
Ao recebermos a carta enviada por MICRO 
SISTEMAS, entramos em contato com o 
Sr. Jefferson e prometemos trocar a placa 
do seu aparelho sem mais d along a e sem 
qualquer onus extra. Assim, seu aparelho ja 
se encontra pronto e a sua disposicao." 
J. A. Moura 
Di ret or da CSM 



SUGESTOES 



Muito apreciaria ver publicado em MS 
um trabalho sobre uma interface para a re- 
cepcao de sinais CW (telegrafia), utilizavel 
na linha Sinclair. 
Galba Jos6 C. de Albuquerque 
Caruaru — PE 

Me disseram que o Curso de BASIC de 
MS foi excelente, portanto, sugiro que o re- 
pi tam, pois vaVios amigos meus (al6m de 
mim) nio tiveram a felicidade de conhecer 
MICRO SISTEMAS desdeo nP 1. 
Jorge Pablo Zapata Rivera 
Salvador - BA 

Gostaria de sugerir a publicacao de um 
mapa da mem6ria (ROM e RAM) — com ro- 
tinas e sub-rotinas, comandos etc. — dos 
equipamentos compatfveis com o TRS-80 
modeio III (e I), para facilitar a programa- 
cao em linguagem de mdquina, pois os fabri- 
cantes nao divulgam estes enderecos. 
Jose" Antonio Biazetti 
Jau - SP 

Parece que voces estao deixando de pu- 
blicar programas para a HP-41C/CV. Sugiro 
mais artigos, principalmente sobre hardware. 
Gostei muito da quantidade de programas 
para o Apple. 
Ana Claudia Izumi Fukuda 
Rio de Janeiro — RJ 

(...) Quero dar-lhes a seguinte sugestao: 
concurso entre os leitores de MICRO SISTE- 
MAS, dividindo-se estes por equipamentos: 
usuarios da linha Sinclair; Apple e TRS-80. 
Os usuarios concorren tes teriam que apresen- 
tar uma colaboracao enquadrada em um des- 
tes tipos: 19) Jogos - 29) Programa utilita- 
rio — 39) Programa aplicativo. Os senhores 
premiariam os tres melhores programas para 
cada linha e tipo (para cada linha nove pes- 
soas premiadas: tres de cada tipo de progra- 
ma). E depois voces publicariam, em uma 
"Edicao Especial", os programas vencedores. 
Jose" de Lima H. Neto 
Campinas — SP 



Envie suas sugestdes para MICRO SISTE- 
MAS. Elas serlo anotadas em nossa pauta e 
procuraremos, na medida do poufvei, viabi- 
liza-las. 
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PROTECT - sistema para 
protecao de software, 
personalizado, com 
"segredo", de baixo custo. que 
inser ido no microcomputador 
impede o funcionamento de qualquer 
copia que nab contenha o PROTECT 
espeeffico. 
ESCRITA - disposmvo pa- 
ra fazer o microcomputa- 
dor escrever em portugues. 
Perm it e acentuacao graf ica, 
til e cedilha. c, a. e. e, e. u, 
etc. . . 

CPM, LOGICOPY, 80 COLUNAS, 16 K, IN- 
TERFACE E BUFFER P/IMPRESSORA, . . . 

(5 LDGITEC 

LOGICA E TECNOLOGIA DIGITAL LTDA. 
Praca Osvaldo Cruz n? 15 conj. 710. 
Tel.: (0512) 25-1677 - Porto Alegre - RS. 




MS E FEITA 

PARA VOCE 

PARTICIPE COM 

SUA OPINIAO 

Escreva-nosdi- 
zendo qual a sua 
a>eade interesse, 
conte-nos tam- 
Wm as suas expe- 
riencias com seu 
micro, o que 
voce quer ver 
publicado em MS, o que voce acha 
da sua MS, enfim, diga tudo que 
torne MICRO SISTEMAS ainda 
mais feita para voce. 
E lembre-se: todo leitor que nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opiniao para Redapao de 
MICRO SISTEMAS no Rio de 
Janeiro ou em Sao Paulo: Av. 
Presidente Wilson, 165/grupo 
1210 -Centro- CEP 20030- 
Rio de Janeiro - RJ; Rua Oliveira 
Dias, 153 - Jardim Paulista - CEP 
01433 -Sao Paulo - SP. 




Uma descrigao detalhada dos comandos PDRI VE e SYSTEM do NEW DOS/80 e ainda 
um exemplo de aplicaQao atravis de um programa para conversao em outros sistemas 



Dois importantes 
comandos do NEWDOS 



Renato Degiovani 



Ouase todos os iniciantes na 
microcomputagSo (e tambem 
va"rios profissionais da drea) 
mantem seus 'DOS' preferidos 
em permanente estado de imutabilidade. 
Isto decorre principalmente do receio de 
causar 'danos' aos sistemas, pois sabe-se- 
Id as dificuldades em conseguir uma ou- 
tra copia. A bem da verdade, a prdtica 
do backup na"o possui muitos entusias- 
tas aqui no Brasil. 

Muita gente boa tern ficado a merce 
dos genios criadores de sistemas que 
configuram suas maravilhas a fim de 
atender ao maior niimero de usuario/ 
mdquinas. resultado disso pode ser (e 
invariavelmente 6) um sistema bastante 
gene'rico e que acaba na"o deixando 
transparecer as suas reais possibilidades. 
Para minimizar um pouco esta situa- 
520, vamos abordar neste artigo dois co- 
mandos bastante interessantes do 
NEWDOS80: o comando SYSTEM e o 
comando PDRIVE. 

Com o PDRIVE, que e um poderoso 
formatador de sai'das, usuario poderi 
converter programas e arquivos entre o 
NEWDOS e o TRSDOS/DOS 500/ CI- 
RANDA, DOSPLUS, DIGDOS etc., 
alem de compatibilizar toda a sua biblio- 
teca com a de seus amigos, pois, com 
ele, discos do DGT-100 podem ser lidos 
pelo CP-500 e vice-versa. 

comando SYSTEM, por outro la- 
do, permite que oNEWDOS seja reconfi- 
gurado com a modifica9ao de varios pa- 
rametros. tais como: cursor (tanto cara- 
ter quanto conditio de intermitencia ou 



PDRIVE, 

0* TI=A,TD=E,TC=40,SPT 

i* TI=A,TD=E,TC=40 r SPT 

2 TI=A r TD=E,TC=40,SPT 

3 TI=A r TD=E,TC=40 r SPT 

4 TI=AM,TD=E r TC=40 r SP 

5 TI=A,TD=A,TC=40,SPT 

6 TI=AK,TD=E,TC=35,SP 

7 TI=A,TD=C,TC=80 r SPT 

8 TI=D,TD=C r TC=80,SPT 

9 TI=A,TD=G,TC=80,SPT 



=i8,TSR= 
=i8,TSR= 
=i8 7 TSR= 
=i8 r TSR= 
T=iO r TSR 
=iO,TSR= 
T=i8,TSR 
=20,TSR= 
»20„TSR» 
=36,TSR= 



3,GPL= 
3,GPL= 
3,GPL= 

3 r GPL= 
=3, GPL 
3,GPL= 
=2 r GPL 
2,GPL= 
3,GPL= 
2,GPL= 



2 r DDSL= 
2 r DDSL= 
2,DDSL= 
2,DDSL= 
»2,DDSL 
2,DDSL= 
=2 r DDSL 
2,DDSL= 
2,DDSL= 
8,DDSL= 



i7,DDGA=2 

17,DDGA=2 

i7,DDGA«2 

i7 r DDGA=2 

=i7 r DDGA=2 

i7,DDGA=2 

=i7,DDGA=2 

i7,DDGA=2 

i7,DDGA=2 

i7,DDGA=2 



Figura 1 



PDRiyEC,senha:]dni,Cdn2C=dn33DC,TI=caracDC,TD=carac3C,TC=valorD 
C „ SP T=va 1 or ] C , TSR=va 1 or 3 C , GPL=va 1 or 3 C , DDSL=va 1 or 1 
CDDGA=valor3C.A3 



Figura 2 

velocidade de REPEAT), cheque de se- 
nnas de acesso ou c6digos especiais, veri- 
fica95es e testes de leitura/grava5ao, 
formata9ao diferenciada etc. 

Ha muita coisa a ser feita, ou pelo 
menos tentada, quando se dispoe de 
algum tempo e disposicfo. Uma boa 
medida inicial 6 providenciar um disco 
(devidamente duplicado) e tentar partir 
para a experimentacao. 



1 - O COMANDO PDRIVE 

O sistema NEWDOS possui 10 
opcoes de configuracao de drives, ou 
seja. 10 PDRIVES. Cada opcao estd 
associada as caracten'sticas fisicas dos 



drives implementados no equipamento. 
Como s6 podem ser usados no maximo 
quatro drives, sobram ainda seis configu- 
racoes a disposi9ao do usuario que pode, 
atraves deles, simular qualquer tipo de 
equipamento. 

Para saber como o sistema esta" orga- 
nizado, basta entrar com o comando 
PDRrVE, 0. Isso produzira uma listagem 
dos parametros dos 10 comandos 
PDRrVE e seus respectivos conteudos, 
bem como a demarca9ao dos drives em 
uso pelo sistema (essa distin9§o 6 feita 
com um asteristico ao lado do numero 
do drivre). Veja a figura 1 , a qual mostra 
um sistema gene'rico com dois drives. A 
sintaxe geral do comando 6 mostrada na 
figura 2 . 
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OS parAmetros do pdrive 

Cada PDRIVE possui nove parame- 
tros que se relacionam com a configura- 
cao hard e soft dos discos. Eles podem 
ser alterados individualmente, e a sua 
manipulacao 6 que permite a simulacao 
de diversos sistemas. As especificacoes 
dnl, dn'2 e dn3 estao relacionadas aos 
drives que receberao as modificacSes. 
Vejamos cada um deles. 

• TI =car4ter 

Este parametro esta relacionado com 

tipo de interface que integra o sistema, 
podendo, portanto, ser representado por 
mais de um cardter.Os tipos possiveis sab: 

A — corresponde a interface standard; 
B - especifica interface OMIKRON; 
C - especifica interface PERCOM; 
D - especifica interface APPARAT; 
E - especifica interface LNW; 
H - apenas para leitura de discos de 8", 
onde deve haver mudanca de velocidade 
na leitura entre os drives; 

1 - determina como 1 a numeracao do 
primeiro setor de cada trilha (essa 6 uma 
caracteristica do TRSDOS); 

J - determina como 1 a numeracao da 

primeira trilha do disco; 

K — Identifica o disco onde a trilha 

esta" formatada de modo diferente das 

demais; 

L — permite que os drives de 80 trilhas 

(dupla face) leiam discos formatados 

com 40 ou 35 trilhas; a cabeca de leitura 

avanca duas trilhas de cada vez; 

M - identifica o disco standard do 

TRSDOS. 

• TD=earater 

Este parametro especifica o tipo de 
disco que esta sendo usado no drive, 
segundo a tabela que esta na figura 3. 

• TC=valor 

Especifica a quantidade de trilhas 
que o disco possui. Se o parametro TI 
possuina opcao K, isso significa que, para 
40 trilhas, TC deve ser igual a 40; caso 
contrario, para 40 trilhas TC deve ser 
igual a 39. 

• SPT=valor 

Determina a quantidade de setores 
por trilha do disco. 

• TRS=valor 

Quantifica o avanco da cabeca de lei- 
tura do drive segundo as opcoes: 

- 5 m/s 

1 - 10 m/s 
2-20 m/s 
3 - 40 m/s 

• GPL=valor 

Quantidade de granulos por LUMP 
na organizacao do disco. Esse valor pode 
variar de 2 a 8, e fora do NEWDOS pode 
ser interpretado como granulos por 
trilha. 

• DDSL-valor 

Numero do LUMP (ou trilha) onde 
inicia o diret6rio do disco. 

• DDGA= valor 



A - 


5. 


25", 


densidade 


simples , 


face 


simples 


B - 


8' 


/ 


densidade 


simples, 


face 


simples 


C - 


5. 


25", 


densidade 


simples , 


face 


dupla 


D - 


8' 


r 


densidade 


simples , 


face 


dupla 


E - 


5 


25", 


densidade 


dupla , 


face 


simples 


F - 


8' 


1 


densidade 


dupla , 


face 


simples 


G - 


5. 


25", 


densidade 


dupla , 


face 


dupla 


H - 


8' 


1 


densidade 


dupla , 


face 


dupla 



Figura 3 



PDRIVE 0* T1=A, TD=E,TC=40,SPT=i8,TSR=3,GPL=2 F DDSL=i7,DDGA=2 



Figura 4 



PDRIVE 8 
PDRIVE 9 



TI=AIM,TD=E,TC=40 r SPT=i8,TSR=2,GPL=6,DDSL=i7,DDGA=2 
T I=A , TD=E , TC=40 , SPT= i 8 , TSR = 2 , GPL = 2 , DDSL=36 , DDGA=2 



Figura 5 

Quantidade de granulos reservados 
para o diret6rio quando da formatacao 
do disco. 
• A 

Este parametro, se constante na lista 
do PDRIVE, provoca a imediata imple- 
mentacao das modificacSes dos outros 
parametros; do contrario, tais modifica- 
cSes so estarao disponiveis apos um 
RESET do sistema. 

O PROGRAMA CONV/BAS 

O programa CONV/BAS, cuja lista- 
gem incluimos neste artigo, e" um exem- 
plo das aplicacoes do PDRWE na simu- 
lacao de outros sistemas. Ele deve ser di- 
gitado no BASIC do NEWDOS, prestan- 
do-se, no entanto, a uma serie de conver- 
soes. Foi concebido originalmente para 
o CP-500, mas pode sofrer modificacoes 
e rodar igualmente no DGT-100. £ pre- 
ciso, porem, nao esquecer que um pro- 
grama convertido pode nao funcionar 
adequadamente fora de seu sistema de 
origem, e isto € mais evidente quando se 
trata de programas em linguagem de ma- 
quina. 

Vejamos, entao, como funciona o 
PDRTVE no CONV/BAS. O nosso siste- 
ma mestre, ou seja, o equipamento utili- 
zado, serd um CP-500 e, conseqiiente- 
mente, o PDRTVE terd a configuracao 
da figura 4. Simularemos um DOS500 
no PDRWE 8 e um DIGDOS no PDRI- 
VE 9, com as seguintes configurac5es 
mostradas na figura 5.: 

Quando fizermos uma conversao, 
bastard especificar, no comando COPY, 
o SPDN (Source PDrive Number) e o 



DPDN (Destination PDrive Number). 
Assim, para copiar um programa do 
DOS 500 para o DIGDOS, por exemplo, 
devemos determinar SPDN^ 8 e DPDN 
= 9. Com isso, o NEWDOS do CP-500 
lera o programa como se fosse um DOS 
500, gravando-o como se fosse um 
DIGDOS. 

Como ja dissemos, uma conversao 
pura e simples nao 6 garantia de 
que o programa ira funcionar adequada- 
mente no seu novo sistema. £ necessario 
testar o programa inumeras vezes ate se 
ter certeza de seu desempenho. £ obvio 
que, quanto mais simples o programa, 
mais chances tern a conversao de resul- 
tar 100%perfeita. 

Um fato porem nao pode ser esque- 
cido: apesar do BASIC ser universal, as 
vdrias versoes BASIC do TRS nem sem- 
pre se equiparam, pois os fabricantes de 
sistemas gostam de fazer algumas modi- 
ficac5es em relacao aos seus concorren- 
tes. Para facilitar a conversao, portanto, 
trazemos no quadro anexo uma tabela 
de compatibilidF de entre o BASIC do 
NEWDOS e o do DOS500. 

O CONV/BAS, tal como listado aqui, 
funciona num CP-500 com um drive. 
Para dois drives basta alterar a linha 90 

para MS="S=COPY, 0,1 Ainda com 

relacao a esta linha, os parametros do 
COPY significam: 

• CBF (Copy By File): implica numa 
copia, a ser executada, de todos os ar- 
quivosdo diretorio. 

• CFWO (Check File With Operator): o 
sistema ira perguntar, arquivo por arqui- 
vo, se: deve ser copiado (Y)/ nao deve 
ser copiado (N); deve reiniciar o proces-^ 
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so (R); todos os arquivos ja" foram iden- 

tificados (Q). 

• NFMT (No ForMat): o sistema nao 

format ara o disco de destino, cabendo 

ao operador certificar-se de que o disco 

destino estd no padrao requerido pela 

conversao. 



2-0 COMANDO SYSTEM 

comando SYSTEM permite que 
alguns parametros do NEWDOS sejam 
alterados de forma a possibilitar uma 
melhor performance do sistema como 
urn todo. A razao de ser do proprio co- 
mando se prende ao fato de que 6 prati- 
camente impossi'vel criar um sistema 
realmente integrado a todas as situa95es 
e configuracoes dos equipamentos exis- 
tentes. Dessa forma, o NEWDOS consti- 
tui-se num sistema flexivel, podendo 
amoldar-se a qualquer utiliza?ao especi- 
fica e aos mais exigentes usuarios. E im- 
portante, porem, nunca esquecer que 
qualquer altera9ao, via comando 
SYSTEM, so poderd ser feita apos o 
RESET do micro. 

A sintaxe geral para o comando esta 
na figura 6. Se for dado, por exemplo, o 
comando SYSTEM, 0, o sistema apenas 
listara os parametros e seus valores cor- 
respondentes. 

OP^OES DO COMANDO SYSTEM 

• AA=YouN 

Este parametro esta relacionado £ re- 
quisi9ao, ou nao, de uma senna de aces- 
so. Se AA=Y, comandos como SYSTEM, 
PDRIVE, PURGE etc. irao necessitar da 
introducao de uma senha que sera a 
mesma do disco. No entanto, se AA=N, 
nao havera necessidade da senha ser digi- 
tada. Por exemplo: para AA= Y, o co- 
comando PURGE sera* PURGE, SENHA 
30; para AA-N, o comando PURGE sera" 
PURGE, 0. 

• AB=YouN 

parametro AB diz respeito ao mo- 
do de opera9ao do disco. Se AB=N, o 
sistema opera normalmente, sem ne- 
nhuma restri9ao. Por outro lado, se AB= 
Y, o sistema opera apenas em modo 
RUN, ou seja, permite apenas a execucao 
de programas. Obviamente que tal 
op9§o pressupoe um comando AUTO 
implementado para que o boot do sis- 
tema nao acarrete a mensagem RUN- 
ONLY STOPPED!! PRESS 4 R' FOR 
RESET, e em decorrencia disso entre 
num loop do qual jamais sairi. 

A conseqiiencia mais imediata desta 
op9§o 6 a desativa9§o dos grupos de te- 
clas 123 (DEBUG), JKL (COPY para 
impressora) e DFG (mini NEWDOS), 
assim como da tecla BREAK. Alem dis- 
so, nao 6 permitido nenhum comando 



SYSTEM,C senha: DdniC r AA=Y/NDC , AB=Y/NDC , AC=Y/N3C r AD=Y/NDC , AE=Y/ND 
C ,AF=Y/NDC ,AG=Y/NJC ,AI=Y/N3C , AJ=Y/N3C , AL=val DC ,AM=val 3 
C F AN=valDC,AO=val3C F AP=val3L r AQ=Y/NDC,AR=Y/N3C F AS=Y/N3 
C,AT = Y/N]C,AU=Y/NDC,Ay=vanC,AW=val3C,AX=valDC r AY=Y/ND 
C,AZ = Y/NDC r BA=Y/NDC r BB=Y/N3i: f Br = Y/N3C,BD=Y/N:r.,BE = Y/N3 
C,BF=Y/NDC,BG=Y/NDC F BH=Y/N]C,BI=val3C,BJ=val 3C F BK=Y/ND 



Figura 6 

dire to, e se um LOAD, sem as op95es R 
ou V, for tentado, o sistema simples- 
mente o rejeitara\ acusando a ilegalidade 
do comando direto. 

• AD-YouN 

parametro AD esta" relacionado ao 
grupo de teclas JKL que, se pressionadas 
conjuntamente, produzem uma copia da 
tela de video na impressora. Se AD=Y, 
essas teclas estarao ativadas e se AD-N, 
nao sera" possivel ativar JKL. 

• AE=YouN 

Este parametro esta relacionado ao 
comando utilitario DEBUG, o qual faz 
parte do sistema NEWDOS/80, sen do 
um poderoso monitor para linguagem de 
mdquina. A sua ativa9ao pode ser efe- 
tuada pelo grupo de teclas 123; se 
AE=Y, o grupo estara ativado e se 
AE=N, o grupo estara" desativado. 

• AF=YouN 

parametro AF ativa e desativa o 
grupo de teclas DFG, responsavel pelo 
acionamento do mini NEWDOS. 

• AG=YouN 

parametro AG presta-se a uma alte- 
ra9So da tecla BREAK, sem no entanto 
desativa-la. Se AG= Y, a tecla 6 conside- 
rada como um INPUT normal e seu 



valor 6 1. Se, por outro lado, AG= N, 
BREAK nao 6 considerada uma tecla 
normal e seu valor de INPUT € modifi- 
do para 0. 

• AJ=YouN 

Responsdvel pelo desvio do SCAN do 
teclado para uma rotina pr6pria do 
NEWDOS. Isso significa que ao ocorrer 
uma interrup9ao para leitur« das teclas, 
tal fun9§o sera" desviada da sua trajetoria 
original, permitindo nao so o controle 
sobre a repeti9ao das teclas como tam- 
b£m sobre um dos processos de reco- 
nhecimento dos grupos de teclas 123, 
JKL e DFG. 

Se AJ=N, a rotina de intercep9§o do 
NEWDOS estard ativa, pordm se AJ=N, 
esta rotina nao serd utilizada e, al£m 
disso, o controle de repeti9ao das teclas 
passard automaticamente para a ROM, 
e o reconhecimento dos grupos de teclas 
JKL, 123 e DFG dependera apenas das 
interrup96es normais do sistema. Para 
for9ar um AJ-N, basta manter pressio- 
nada, durante o RESET, a tecla seta 
para cima. 

• AL=la4 

Este parametro especifica a quanti- 



Tabela de compatibilidade 

entre BASIC do NEWDOS 

e do DOS500 



1 - Retorna ao DOS quando houver al- 
gum erro de E/S e imprime a mensagem 
TAREFA ABANDON ADA: 
.DOS500-CMD"A" 

. NEWDOS - nao tern equivalente 

2 - Ativa e desativa a tecla BREAK: 

. DOS 500 - CMD "B", "ON/OFF" 
. NEWDOS - CMD "BREAK, Y/N" 

3 - Lista o diretorio do disco: 
. DOS500 - CMD "D:0" 

. NEWDOS - CMD "DIR" 

4 - Executa um comando do DOS : 
. DOS500 - CMD "I", "comando" 
. NEWDOS - CMD "comando" 

5 - Carrega uma sub-rotina em linguagem 
de mdquina: 

. DOS500 - CMD "L", "rotina" 
. NEWDOS - CMD "LOAD, rotina" 



6 - Venfica status da impressora: 
. DOS500 - CMD '?", string 

. NEWDOS - PEEK (& H37E8) 

7 — Liga o relogio na tela: 
. DOS500 - CMD "R M 
.NEWDOS - CMD "CLOCIC, Y" 

8 — DesJiga o rclogio na tela: 
. DOS500 - CMD *T M 

. NEWDOS - CMD "CLOCK, N" 

9 - Executa a pesquisa de palavras ou va- 
riaveis no texto residente: 

. DOS500 - CMD "X", objeto 
. NEWDOS - REF objeto 

10 - Duplica sai'da de vi'deo para impres- 
sora: 

. DOS500 - CMD "Z", "ON/OFF" 
. NEWDOS - CMD "ROUTE..." 
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dade de drives instalados no equipamen- 
to. Deve conter sempre a quantidade 
real para evitar que o sistema perca tem- 
po checando drives inexistentes. Seu 
valor nunca deve exceder a 4. 

• AM=0 a 255 (0= 256) 

Esta 6 a quantidade de tentativas de 
leitura do disco ate que um erro E/S seja 
declarado. Seu valor original e" 10. 

• AN=0a255 

Numero de default do drive para o 
comando DIR. 

• AO=0a255 

Durante a criacao de um arquivo sem 
especificacao de drive, o sistema procu- 
re, em primeiro lugar, por um arquivo 
com o mesmo nome. Nao encontrando, 
o sistema ira procurar por uma area livre 
para a criacao do arquivo lendo os drives 
a partir do drive constante em AO. Ne- 
nhum drive com numera^ao menor a 
AO sera checado quanto ao espaco livre 
para alocacao de programas. 

• AP= endereco 

Se for diferente de zero e correspon- 
der a uma posicao real de memoria, 
este endereco sera assumido como o 
HIM EM do sistema e armazenado no 
endereco 4411H (modelo I=4049H). 

• AQ-YouN 

Parametro que ativa (AQ= Y), ou de- 
sativa (AQ= N) a tecla CLEAR. £ neces- 
sirio, pore'm, que a op9ao A J seja igual a 
Y. 

• AR=YouN 

Condi9ao para verifica9ao da senha 
quando usado o comando COPY nos 
formatos 5 e 6. Se AR- Y e AA= Y, a se- 
nha seratestada;caso contrario (AR= N), 
ela nao sera teslada. 

• AT=YouN 

Chave de ativa9ao de modo de grava- 
9I0 para opera96es CHAIN (AT-N). 

• AU=YouN 

Chave liga/desliga para a repeticao de 
teclas. Se AU=N, a repeti9§o das teclas 
passa a ser comandada pela rotina inter- 
na da ROM. 

• AV=0a255 

valor de AV corresponde a quanti- 
dade de tempo (multiplicada por 25 ms) 
que a repeti9ao de teclas esperara para 
entrar em a9ao apos uma tecla ter sido 
pressionada. intervalo entre cada repe- 
ti9ao tambe'm sera fun9ao desse valor. 

• AW=Oa255 

Quantidade de vezes em que o siste- 
ma escreve e verifica as informa9oes no 
disco. Este parametro opera em conjun- 
to com AM, informando ao operador 
sempre que um erro for detectado. Se 
AW for maior que I, entao o sistema, 
em caso de erro, automaticamente ten- 
tard uma nova grava9ao. 

• AX=Oa255 

Valor mais alto do codigo ASCII para 
impressao de caracteres pela rotina 



CONV/BAS 



•xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

'% CONV/BAS programs, para conversan de Z 

'X arguivos entre os sist etnas Z 

'■/. DOS500 <> NEWDOS <-> DIGDOS, Z 

'•/. desenvolvido em ABRIL de 1984 Z 

'X no CPD da MICRO SISTEMAS. % 

'■/. y- 

"/. Renato Deg i ovan i Z 

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

10 CLEAR iOO : CLS ■' CMD"BREAK,N" : POKE 16' 6,5 

20 PRINT STRING* ( 64 , 37 ) -"MICRO SISTEMAS" jCH K202)f"C N V / B 
A S ";CHR4<202);"MICRO SISTEMAS" ; STR ING4 (64,37) : PRINT 

30 CMD"PDRIOF,NEWDOS80:0,8,TI=AIM,TD=E,TC=40,SPT=10,TSR=2,GPL=6, 

DDSI.=17,DDGA=2,A" s CLS 

40 CMD"PDRIVE,NEWD0S80:0,9,TI=A,TD=E,TC=40,SPT=18,TSR=2 r GPL=2,DD 

SL=36,DDGA=2,A" : CLS 

50 PRINT TAB<9)"Este programa copia arguivos fazendo as devidas 

conver-soes. CONV/BAS nao guest iona se o disco esta' on nao fo 

rmata- do." 

60 PRINT 3576, 'opcoes:"; 3704, "<1> NEWDOS > D0S500","<2> DOSS 

00 — -> NEWDOS" ,"< 3 > NEWDOS > DIGDOS", "< 4 > DIGDOS > NEWDOS 

","<5> D0S500 > DIGDOS", "<6> DIGDOS > D0S500","<7> BASIC" 

70 U*=INKEYl : IF Ut>"7" OR U4<"1" THEN 70 

80 U=ASC(Ut)-48 : ON U GOSUB 110,120,130,140,150,160,170 

90 M4="S=C0PY,0,0, ,CBF,CFWO,NFMT,SPDN="+Sl+" 

100 CLS : PRINT 3192, "disco fonte > ";F4, 

";D4; 3640, t CMD W% : END 



DPDN="+T4 
'd i sco dest i no 



> 



110 F<fc---"NEWDOS" i 
120 Ft="D0S500" : 
130 F1="NEWD0S" I 
140 F*="DIGD0S" i 
150 FS="D0S500" I 
160 Ft="DIGD0S" : 
170 POKE 16916,0 



Dt="DOS500" 
D ( B="NEWD0S" 
D4="DIGD0S" 
D4="NEWD0S" 
D5="DIGD0S" 
D*="D0S500" 
: CMD"BREAK,Y" 



Sl-"0' 
S4="8' 
St="0' 
Sl="9' 

c;« = :"R' 



S4= 



CLS 



: Tl="8' 

! Tt»"0' 

: T4="9' 

i T4="0' 

: T4="9' 

: T4="8' 
END 



REILJRN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 



PRINT do NEWDOS. Acima desse valor 
os caracteres sab substituidos por espa- 
90 ou pontos. 

• AY=YouN 

Chave liga/desliga para a questao 
DATA/HORA quando o micro e ligado 
(a indaga9ao so sera feita se AY=Y). 

• AZ=YouN 

Chave liga/desliga para a questao 
DATA/HORA quando o micro e resse- 
tado. Sempre que AZ for igual a Y, toda 
vez que o micro for ressetado o sistema 
questional a respeito da data e da hora. 

• BA=YouN 

BA= Y bloqueia todas as saidas de 
impressao ate que o operador execute 
um ROUTE, CLEAR ou ROUTE.DO. 
BA= N cancela este bloqueio. 

• BB=YouN 

parametro BB controla a interrup- 
9ao do relogio do micro (apenas modelo 
III). Se BB=N, as interrup96es serao exe- 
cutadas 60 vezes por segundo e se BB=Y, 
as interrup96es passarao a 50 vezes por 
segundo. 

• BC=YouN 

BC=Y permite que uma opera9§o 
CHAIN seja interrompida pelo operador 
para que haja uma pausa ou cancelamen- 
to. 

• BD=YouN 

BD= Y da ao operador a chance de 



anular o comando AUTO durante um 
RESET, bastando para isso manter a te- 
cla ENTER pressionada. BD=N nao per- 
mite esta facilidade. 

• BE=YouN 

Com BE= Y podemos executar o co- 
mando R do DOS. BE= N nao permite a 
repeti9ao do ultimo comando do DOS 
(R). 

• BG-YouN 

Se BG= Y, as informa96es digitadas 
pelo teclado serao admitidas em caracte- 
res minusculos. Ja se BG=N, as informa- 
96es serao em caracteres maiusculos. 

• BH-YouN 

Chave liga/desliga do cursor intermi- 
tente. Com BH=Y o cursor sera piscante 
e BH=N fard com que ele seja estatico. 

• BI=Oa255 

C6digo do cardter do cursor. Se 
BI=0, o sistema assume o valor standard 
(modelo 1-95 e modelo 111=176). 

• BJ=0a255 

Valor de medi9ao ciclica para uma 
UCP que tenha sofrido altera96es de 
hardware com conseqiientes mudan9as 
na velocide do clock. 

• BK=YouN 

BK= N nao permite que o comando 
WRDIRP e as op9oes W e C do DIR- 
CHECK sejam executadas. BK= Y nao 
interfere nestas opera9oes. ™, 
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Decodif icador de cores 
para componentes eletronicos 



Na Secao de Cartas de MS n9 26, o leitor Alexandre C. Machado nos relatava a sua drficuldade em memorizar 

o c6digo de cores de resistores e capacitores, solicitando enta*o um programa que descobrisse o valor 

do resistor e do capacitor, dando entrada no micro so com o c6digo de cores. Embora tenhamos remetido 

todas as colaboracoes que nos chegaram para o Alexandre, por uma questao de espaco, selecionamos apenas 

uma para publicacao. Deixamos, entretanto, aqui registrados os nossos agradecimentos aos leitores 

que enviaram suas colaboracoes. 



O 



Nelson Hisashi Tamura 



programa a seguir, destina- e opera com SLOW. Sua digitacao 6 sim- explicativo quanto a forma de operacao, 
do a micros compatfveis com a 16gica pies, pois 6 escrito totalmente em lin- sendo indicado principalmente para in»- 
Sinclair, ocupa 16 Kb de mem6ria RAM guagem BASIC. Ale*m disso, ele 6 auto- ciantes na area de eletr6nica. 















Decodificador de cores 






1 REM 3E3i-- 

5 SLOW 

10 LET E$='- 


-19S4- 


300 PRINT PT C , 27 ; "33" : RT 19 , ; 
"OUER OUTRP LEITURP ? »"5"»« Qij " 






rURP EM PICOFPR 

'8999 awg 

CPPPCITOR ^ 1 


310 IF INKEY$="N" THEN GOTO 200 



320 GOTO 2S0 
330 LET 0=15 

340 IF P=2 THEN LET D=15 
350 IF P=2 THEN LET 2=8 
360 LET G=27 
400 INPUT U$ 

410 IF U$ = :, D0URPD0" THEN PRINT 
PT z . G ; " " ; PT C . D; " " 

420 IF U$="PRET0" THEN PRINT PT 

Z . G ; "0" ; PT C . D ; "0" 

430 IF U$="MPRR0M" THEN PRINT P 
T Z,G; "l".i PT C,Dj "1" 

440 IF U$="UERMELH0" THEN PRINT 

RT Z . G; "2" ; PT C .D; "2" 

450 IF U$="LPRPNUP" THEN PRINT 
PT Z , G; "3" ; PT C . D ; "3" 

460 IF U$="PMPREL0" THEN PRINT 
PT 2,G; "4" ; PT C ,D; "4" 

470 IF U$=-UERDE" THEN PRINT PT 

Z,G; "5" ;PT C .D; "5" 

430 IF U$="PZUL" THEN PRINT PT 
Z , G; "6" ; PT C ; Dj "6" 

490 IF U$="UI0LETP" THEN PRINT 
PT Z ,G.; "7"; PT C ,D; "7" 

500 IF U$="CINZP" THEN PRINT PT 

Z ,G.i "8"; PT C .D: "8" 

510 IF U$="BRPNC0" THEN PRINT P 
T Z.G;"9";PT C , D ; "9" 

520 IF U$="D0URPD0" OR U$="PRET 
0" OR U$="MPRR0M" OR U$="UERMELH 
0" OR U$ = "LPRPN-JP" OR U$ = "PMPREL 
0" OR U$="UERDE" OR U$="PZUL" OR 

U$="UIOLETfl" OR U$="CINZP" OR U 
$="BRPNC0" THEN RETURN 

530 GOSUB S50 

540 GOTO 400 

550 LET D=17 




20 GOTO 2001 
30 CLS 

40 PRINT " LEI" 
ADS (PF) " ;TPB © 
50 PRINT , , " 




JMdWEHK = 

50 PRINT 
■DIGITO. ..." 
70 PRINT " 




S0 PR INI 1 jm 


imh* .> ■■ 




90 PRINT "2 &m 

100 PRINT "3 Ml 


Igjjjjljjl ^^ ... 




ZEROS . . " 
110 PRINT "4 SM 
120 PRINT "5 Hill 






PNC IP. . " 
130 PRINT " ▼ 
140 PRINT " 

150 FOR X=0 TO 2 
160 PRINT " | 
170 NEXT X 
130 LET D=15 
190 LET 2=6 
200 PRINT PT 16, 

210 FOR P=l TO 5 
220 PRINT PT 19 . 
P " ; P ; "■ FPIXP ?" 
230 IF P<=2 THEN 
240 IF P=3 THEN 
250 IF P=4 THEN 
260 NEXT fl 
270 GOSUB 720 
230 PRINT PT C,2 


\ TENSP 
1 

15; ".......... . 




0; "OUPL P COR D 

GOSUB 330 
GOSUB 550 
GOSUB 790 

7; "PF" . PT 19 , j 










290 IF INKEY$="S 


' THEN GOTO 30 


560 LET B=10 
600 INPUT U$ 
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610 IF U$ = '*DOURflDO" THEN PRINT 
PT B , G; " " ; PT C ,D; " " 

620 IF U$= ,, PRETO" THEN PRINT PT 

B . G ; " " .; PT C , D ; " " 

630 IF U$="hPPROM" THEN PRINT P 
T B . G; "0"; PT G , D ; "0" 

640 IF U$="UERMELHQ" THEN PRINT 

PT B,G;"00";PT C,D;"00" 

650 IF U$ = "LPRPN.JP" THEN PRINT 
PT E,G.;"000";PT C.D;"000" 

650 IF U$="RMRRELO" THEN PRINT 
PT B . G; "0000" ; PT C.D;"0000" 

670 IF U$="UERDE" THEN PRINT PT 

B , G; "00000" ; PT C ,D ; "00000" 

630 IF U$="PZUL" THEN PRINT PT 
B . G ; "000000" ; PT C . D ; "000000" 

690 IF y$ = ! 'DGURPDO" OR U$="PRET 
0" OR U$="MPRROM" OR U$s"UERMELH 
0" OR U$ = "LPRPN.JP" OR U$ = "PMPREL 
0" OR U$="UERDE" OR U$="PZUL" TH 
EN RETURN 

700 GOSUB 350 

710 GOTO 600 

720 INPUT U$ 

730 IF U$=-UEPMELHO" THEN PRINT 

PT 14, G; "250 V" 

740 IF u$="PMPRELO" THEN PRINT 
PT 14 ,G; "400 U" 

750 IF U$="PZUL" THEN PRINT PT 
14 , G ; "630 \J" 

760 IF U$="UERMELHG" OR U$="PMP 
RELO" OR U$="RZUL" THEN RETURN 

770 GOSUB 350 

730 GOTO 720 

790 INPUT U$ 

300 IF U$="PRETO" THEN PRINT PT 



12 .G; "20 ■/« " 

310 IF U$="BRPNCO" THEN PRINT P 
T 12 , G ; " 10 ■/. " 

320 IF U$="PRETO" OR U$ ="BRPNGO 
" THEN RETURN 
330 GOSUB 850 
340 GOTO 790 

350 PRINT PT 21,0; "ESTP COR NPO 
TEN, D I G IT E D E N G U ' ' 
360 FOR N=0 TO 25 
370 NEXT N 
330 PRINT PT 21,0; " 

390 RETURN 

1000 CLS 

1010 PRINT TPB 3;"LEITURP EM OHM 
5";TPB 0;E$ 

1020 LET X=6 

1030 LET C$ = "^«igMiJ«f 

1040 PRINT PT X,6,"wmmm 

1050 PRINT PT X+l,6;C: 
1060 PRINT PT X+2.6; 



1070 PRINT P" 
X+2 . 22 ; "hhhh 
1030 PRINT P- 
1090 PRINT P" 



X+2 , ; " 



X + 3 . 6 ; C $ 
X+4,6, '"^m* 




1100 PR INT PT 12,0; " I 1 DIG ITO" .; PT 
14- 3 " " '"'* r- ' T G T~T ~! : ' 

11 10 "PRINT PT ' 16 , 4 ; "N 1 DE ZEROS" .; 

PT 13 .7; "TOLERPNCIP" 

1120 LET B$=" ■" 

1130 FOR P=ll TO 3 

1140 IF P::=12 THEN PRINT PT P,5, 



MICROCOMPUTADORES 



iTTppeqple 

Computacao 



PROGRAMAQAO MICROS 

- BASIC I - Introdupao 

- BASIC II - Avancado 
INFANTO-JUVENIL (8 a 16 anos) 

- BASIC 19 12? Grau 

- Criando com LOGO 

USUARIOS DE MICROS 

- Microinformatica 

- VISICALC 



— M6todo Proprio de Ensino 

— Prof essores Especial izados 

— Apostilas Completas de Textos e Exerci'cios 

— 1 Micro para cada 2 alunos 

— N9 Nmitado de vagas / turma 



CAMPINAS - Rua Cesar Bierrenbach, 171 - Fone: 8-3608 

SAO PAULO - Av. Rouxinol, 201 - Fone: 61-4595 

RIO DE JANEIRO - Av. N. S. Copacabana, 1417 - Loja 313 - Fone: 521-1549 




DECODIFICADOR DE CORES 



"4" 


FAIXA 


" ; A 


AT 


14 


22 


"DO 


■ 


AT 


17 


22 ; 


"1I& ■/■ 


" 




1 


1 


1 





B$.;AT A,11;B$;AT A.14;B$ 

1150 IF A>=13 AND A<=14 THEN PR I 

NT AT A , 1 1 ; B $ ; RT A . 14 ; B $ 

1160 IF A>=15 AND A<=15 THEN PRI 

NT RT A , 14; B$ 

1170 PRINT RT A,17;B$ 

1130 NEXT fl 

1190 PRIN T RT 12,2 2 

T 13 .21; " "— ^-^«" 

URADO"; AT 15,24; "5 ■ 

"PRRTEflDO" ; RT 13.24 

1200 PRINT RT 5,7;" 

1210 LET Z=4 

1220 LET 0=2 

1230 LET E=Z 

1240 LET 0=3 

1250 LET D=9 

1260 FOR F=l TO 3 

1270 PRINT RT 20 , ; ' 

R " ; F; "■ FRIXfl ?" 

1230 IF F=2 THEN LET 0=11 

1290 IF F=2 THEN LET D = 10 

1300 IF F<=2 THEN G05UB 40O 

1310 NEXT F 

1320 LET 0=14 

1330 LET D=ll 

134© OOSUB 500 

1350 PRINT RT 20,0; "QUER OUTRR L 

EITURR ■"■ ""5"" oil ""N ; RT Z . 13 



OUER OUTRR L 



3070 PRINT RT 14 12; UUUUlik 

3030 PRINT RT 9 ■ 11 ; "CAPACITOR 
;RT 17, 11; :: I3 



3090 IF INKEY$="R" THEN OOTO 100 


3100 print at 9 ii afcfcfcfeMrf !ldM»: 

B" : RT 17 . 11; "RESISTOR ""R 

3110 IF INKEY$ = !, C" THEN OOTO 30 

3120 OOTO 3030 

OOOO S fl U E " DE D I F 1 fl D OS 

9010 RUN 

PRESSIONE fl TECLR DESEJADfl 



OUflL fl COR D 




APACITQR C 



mnniL— 



1360 IF INKEr$s"S" THEN OOTO 100 



1370 PRINT RT 20 .© 

1" ; RT Z ,13 



"OH 

200 



RESISTOR "R" 
.EITURR EM PICOFARADS 



i.PF) 



MS" 

1330 IF INKEY$="N" THEN OOTO 

WSm —MB BB n" 

1390 OOTO 1350 

2000 CLS 

20 10 _ PR INT " Pp-pJ^PPPPP^_ £^ CAPACITOR ■" 1" DIGITO.... 

■aSBii TAB 0;E$ i JMHRi-^: 1 2" DIGITO. . 

2020 PRINT , Y'i" - INSERIR R COP 2 PS^m* 

ESCREUENDO-fl CORRETflMENTE , = SE : MMMMtt — — N 1 DE ZEROS.. 

M ABREUIACAO. " 4 ZPPP ". P^P. — 

2C30 PRINT 2 a - AS CORES R 5 E 3 Mgjjj|H| — ^ TOLERRNCIfi . . 

REM INSERIDRS PARA OS RESI3T0RES T^ ^T % 

E CAPACITORESDE P0LIE5TER METAL % TENSAO 

2040 "PRINT , . "* PRETO" . "* MRRROM 

" , , . '** UERMELHO" . "* LARANJA" ..." 

* AMARELG" , "* UERDE" . . . "* AZUL" . 

"* UIOLETA" , , , *' * CINZA"."* BRANC OUflL fl COR DR 1" FRIXfl ? 

0",,,"4 DOURADO SOMENTE P. /RES 1ST 

2050 POKE 16418,0 LEITUPP EM OHMS 

2050 PRINT RT 23 . ; "PRESSIONE A 

TECLA " " C " " P /CONT INUflR " 

2070 IF INKEY$s"C" THEN GOTO 300 

- . . 

2030 PRINT AT P:~ . ft : agJ*JftBMM 5 



2090 OOTO 2050 

3000 CLS 

3010 POKE 16413 .2 

3020 PRINT " PRESSIONE A TECLA 

DESEUADA" ; TAB ; E$ 
3030 PRINT RT 5,5;"^^^^^. 




3040 PRINT RT 4 . 15 ; ■ ■ ; AT 5 . 15 
,"■■"; AT 5,15; "■■".; AT 7,15;"" 



3050 PRINT AT 
I 

3060 PRINT RT 

mm — 



12, 11; "| 
13,5; ", 



1" DIGITO . 
2" DIGITO 
N" DE ZEROS 

TOLERRNCIfl 



4^AIXA 
DOURADO 



PR ATE ADO 

10 "/■ 



OUflL fl COR DR 1" FRIXfl ? 



is 
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Os Kits de Micro Chegaram! 

APPLEKIT - Kit de microcomputador tipo Apple® 



Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 



microcotitrol 

Sistemas de Controles 

Tels.: (Oil) 814-0446 e 814-1110 
Sao Paulo - Brasil. 



APPLEKIT 65100 



APPLEKIT 65000 
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APPLEKIT 65300 APPLEKIT 65400 



I APPLEKIT 65000 1 Placa de c ircuito impresso. I APPLEKI T 65010! Conjunto de soquetes, conectores, resistores e ca- 
pacitores. 1 APPLEKIT 65020 1 Conjunto de semicondutores. TTL's, LSI e memorias (As memorias EPROM sao forneci- 
das co m gravacao). I APPLEKIT 65100 1 Conjunto de teclado alfanumerico co m 52 tec las e componentes, circuito im- 
presso. I APPLEKIT 652001 Fonte de alimentacao tipo chaveado. 1 APPLEKIT 65300 1 Caixa de microcomputador em 
poliuretano. 1 APPLEKIT 65400 1 Manual de montagem e teste de micro. 



APPLEKIT e 100% compativel com os cartoes perifericos da MICROCRAFT. 



' Apple i marca regisirada de Apple !nc . 



Voce j4 deve saber quantas linhas x colunas podem ser geradas no Apple, 
mas nao fique s6 nisso... conheca melhor a memdria de video do II Plus 



Nao perca de memoria 
o video do seu Apple 



Evandro Mascarenhas de Olive ira 



Para muitos usuarios de equipamentos da linha Apple, 
informasoes do tipo numero de linhas x colunas gera- 
das no vi'deo ou numero de pontos em modo gr&fico 
de alta resolu9ao na"o sa"o novidades, quando se trata 
da memoria de video do Apple. Entretanto, nesse artigo, ire- 
mos alem dos conhecimentos comuns, adentrando na mem6ria 
de video do Apple II Plus para mostrar aos usuarios como tra- 
balhar mais facilmente com essa memdria. Trataremos, especi- 
ficamente, das Paginas 1, com os modos texto e grdficos em 
alta e baixa resolu96es. 

Antes de qualquer coisa € necessirio saber que a tela de vi- 
deo e" mapeada de forma que a determinados endere90S da 
RAM correspondam areas especificas, as quais exibirao carac- 
teres ou pontos coloridos quando os codigos relativos a esses 
elementos da imagem sao referenciados naqueles endere?os. 

Vamos partir da figura 1 , que mostra a organizacao geral da 
mem6ria do Apple II Plus, com 48 Kb de RAM e 12,288 Kb 
de ROM. Nesse mapa observamos que a mem6ria de video ocu- 
pa as seguintes posicoes: do endere90 1024 ao 2047 esta a cha- 
mada Pagina 1 que corresponde aos modos texto e grafico de 
baixa resolu^ao; do 2048 ao 3071 esta" a Pagina 2, com os mo- 
dos texto e graTico de baixa resolucao; do 8192 ao 16383 esta" 
a Pagina 1 , com os graficos de alta resolu9ao; e, finalmente, do 
endere90 16384 ao 24575 estd a Pagina 2 com os grdficos de 
altaresolucSb. 

Em BASIC,estes endere90S sao acessados por POKE seguido 
do endere90 e do codigo do cariter, nos modos texto e grdfico. 
Os endere90s referenciados desta forma permitem, entre outras 
coisas, exibir, em modo flash ou inverso, os caracteres que a ins- 
tru9ao PRINT por si so nao faz (necessita especificar FLASH 
ou INVERSE), inclusive aqueles que nao tern acesso direto pe- 
lo teclado (letras minusculas, alguns caracteres de pontua9ao, 
etc.). Permitem ainda escrever em modo texto sem o uso do 
PRINT ou utilizar a Pagina 2, inacessivel pelo BASIC, que s6 
usa a Pagina 1 . 

CARACTERISTICA DA PAGINA 1 

A Pagina 1 apresenta, como caracteristica, uma <irea de tex- 
to dividida em 24 linhas (0 a 23) x 40 colunas (0 a 39), num to- 
tal de 960 unidades graficas, sendo que cada uma dessas corres- 
ponde a um endere90 da RAM, entre 1024 e 2039. 

Um aspecto importante 6 que a linha zero inicia em 1024 e 
termina em 1063, porem a linha um nao come9a em 1064, que 



MAPA GERAL DA HEM6RIA DO APPLE II PLUS 



0000 

Hex 



ROH: Sistcma Monitor, Interprctador Applesoft 



I/O : teclado, slots, alto-falante, controlador 
de jogos, cassete, chaven "soft", controle te- 
clado 



AREA LIVRE-(2)-PARA O USuARIO: programas em 1 in 
guagen de maquina ate 13,5 Kb, Default Himem, 
variaveis BASIC 







Area livrb- ( i ) -para o usuario: progi 

guagem de maquina ate 5 Kb 




PAGINA 2: entrada de dados pelo teclado 



SISTEHA STACK: controle do retorno de sub-roti 
nas, interruptores de software e hardware 



PAGINA 0: variaveis do Monitor c Applesoft, 
enderecos livres para o usuario 



DESCRICAO DAS AREAS 



Figura 1 

£ o inicio da linha oito, havendo a seguinte seqiiencia de linhas: 

0-8-16 4-12-20 

1-9 -17 5-13-21 

2-10-18 6-14-22 

3-11-19 7-15-23 

Sao, portanto, oito grupos de tres linhas, e a cada conjunto 
de linhas sobram oito bytes, que sao usados nos controles I/O 
dos slots para interfaces externas. Assim, as linhas 0-8-16 



^o 
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CARACTERES EM 


MODO 


INVERSO 








Hex 


Dec 


Car 


Hex 


[>'•!' 


Car 


Hex 


Dec Car 


Hex 


Dec 


Car 


soo 


(0) 




S10 


1 161 


P 


S20 


( 32 1 


S30 


(48 I 





SOI 


( I i 


A 


Sll 


I 17) 


. 


S21 


(33) ! 


S3I 


(49 1 


1 


S02 


[21 


B 


$12 


1 IB) 


1' 


S22 


(34) 


S32 


(50) 


2 


S03 


( 3) 


C 


SI) 


( 19) 
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S23 


(35) # 


S33 
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i 


S04 
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(20) 


T 


S24 


( 36) S 


S34 
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■. 


S05 
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S 15 


(21 ) 


u 


S25 


( 37) t 


S35 


(53) 


5 


S06 


(61 


F 


S16 


(22) 


'. 


S26 


138) k 


S36 


(54) 


6 


S07 


(7) 


G 


SI7 


(23) 


W 


S27 


(39) 


S37 


(551 


7 


S08 


(81 


H 


S18 


(24) 


X 


S28 


140) I 


S38 


(56) 


8 


S09 


1 9 ! 


I 


$19 


(25) 


Y 


S29 


(41 ) ) 


S39 


(57) 


9 


SOA 


( 10) 


J 


SIA 
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■:. 


S2A 


1421 


S3A 


(58) 




SOB 


(ll) 


y 


SIB 


(27) 


r 


S2B 


(43) * 


S3B 


(59) 




SOC 


12) 


L 


SIC 


(28) 


\ 


S2C 


(44) 


$3C 


(601 


■ 


SOD 
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M 


SID 
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S2D 
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(61 1 


> 


SOE 
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N 
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S2E 


(46) 


S3E 


(62) 
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SOF 
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- 


S2F 
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CARACTERES EM 


MODO 


NORMAL- 1 
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Dec 
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Dec 
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Figura 2 



vao do enderego 1024 ao endere90 1143, seguindo-se as linhas 
1 — 9 - 17, que vao de 1152 a 1271, deixando os enderegos 
1144 a 1151 parao byte zero dos slots a 7. 

A area para graficos em baixa resolucao, da Pagina 1 , e divi- 
dida em 48 linhas (0 a 47) x 40 colunas (0 a 39), em full screen, 
ou 40 linhas (0 a 39) x 40 colunas (0 a 39), com quatro linhas 
de texto (20 a 23) em modo misto (texto/grdfico). No primei- 
ro caso, existe o dobro de linhas da area de texto, pordm com 
o mesmo mimero de enderegos, o que se explica pelo fato de 
cada cardter em texto corresponder a duas areas de cor (supe- 
rior e inferior) nos graficos de baixa resolucao. 

O mapeamento completo da memoria de video, nos modos 
texto e graTicos de alta e baixa resolucoes, podera ser consul- 
tado em Intermediate - Level Apple II Handbook, de David 
L. Heiserman, paginas 280 a 281 e 301 a 312. 

MODO TEXTO 

Como frisamos anteriormente, a utilizacao da memoria de 
video 6 feita acessando-se o enderego e o codigo do career 
atraves de POKE. Na figura 2 temos os codigos em decimal e 
hexadecimal dos caracteres usados pelo sistema para os modos 
inverso,/7as/i e normal. 

O programa que damos a seguir exibe na tela de video os ca- 
racteres utilizados pelo sistema nas linhas 0, 8, 16, 1, 9 e 17. 
Nele observamos que alguns desses caracteres foram suprimi- 
dos, justamente os que correspondem as posigoes da memoria 
para os slots, ao final das linhas 16 e 17. 

5 HOME 

10 FOR K = TO 25 5 

20 POKE 1024+K, K 

U) NEXT 

Para evitar este tipo de problema, n6s utilizaremos tres en- 
derecos e uma sub-rotina, que nos permitirao varrer na tela os 
enderecos da mem6ria de video sequencialmente, linha por li- 
nha, col una por coluna. 

Os dois primeiros enderecos sao os 41 ($29) e 40 ($28), 
denominados respectivamente de BASH e BASL, que juntos 
representam o enderego do primeiro cardter da corrente linha, 
sendo BASH o byte mais significativo e BASL o menos signifi- 
cative. 

Acessando PRINT PEEK (41), PEEK (40) obtem-se os valo- 



res 04 e 00 que, em hexadecimal, correspondem a $0400, ou 
1024 em decimal. Este 6 o enderego da primeira coluna da li- 
nha zero. 

Temos agora um programa que mostra os valores em deci- 
mal de BASH e BASL, para as linhas de texto (0 a 23): 



r > HOME 

10 FOR K = TO 23 

20 PRINT K, PEEK! 4 1 ) 

30 NEXT 



PEEK 4 



Passando para hexadecimal os valores dos enderecos 41 e 
40, como um so,teremos todosos enderegos iniciais(figura 3) 
das 24 linhas da Pagina 1 (texto/grafico). 

O terceiro enderego 6 o 36 ($24), conhecido como CV, 
pois.contem o valor da coluna do cursor. O CV, sendo adicio- 
nado ao enderego BASH-BASL, dara o enderego do carater 
que esta sendo exibido. 

A sub-rotina utilizada 6 a ADVANCE, que tern initio no en- 
derego 1036. Esta sub-rotina avanga o cursor uma coluna para 
a direita e quando chega ao final da linha, retorna ao inicio da 
seguinte, levando CV a zero. 

A expressao EX = 256 * PEEK (41) + PEEK (40) + PEEK (36) 
significa a conversao 

significa a conversao para decimal do valor hexadecimal do en- 
derego da posigao atual do cursor. Combinando esta expressao 
com a sub-rotina ADVANCE, conseguiremos varrer toda a tela, 
atraves de POKE, linha por linha, coluna por coluna, conforme 
o programa abaixo. Este programa, exibe todos os caracteres 
do sistema, sequencialmente, na Pagina 1 , em modo texto. 



5 ||, v 
10 FUR K = ""O . 

: IKE 2 56 * PEEK! 4 1 
30 CALL - 10 36 
4 NEXT 



+ PEEK! 40) + PEEK! 36 ) , K 



A expressao EX e" modificada por HTAB e VTAB ( o de- 
fault 6 HTAB 1: VTAB 1). Assim, o programa anterior adicio- 
nado de HTAB 20 : VTAB 12, entre as linhas 5 e 10, inicia os 
caracteres no centro da tela. 

GRAFICOS EM BADCA RESOLUCAO 

Em modo grafico, da mesma maneira que no texto, de acor- 
do com o enderego e o codigo do carater acessados atraves de 
POKE, sera exibida uma determinada unidade grafica colorida. 



MICRO SiSTEMAS, agosto/84 



21 



NAO PERCA DE MEM6RIA O VIDEO DO SEU APPLE 
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Figura 3 

Acompanhe na figura 4 o cardter ASCII que corresponde, 
em grafico de baixa resolucao, a duas cores: uma, superior, da- 
da pela parte menos significativa do seu codigo em hexadeci- 
mal; outra, inferior, dada pela porcao mais significativa. 

Comando, em modo grafico, POKE 1024, 129, teremos a 
exibicao de um retangulo colorido na linha zero e coluna zero, 
com a cor superior vermelha e a inferior marrom. £ bom frisar 
que 129 6 o codigo decimal da letra A, que corresponde em he- 
xadecimal a S81 , sendo 1 a cor vermelha e 8 a marrom. 

Da mesma forma que fizemos no modo texto, vamos agora, 
atrave's do programa a seguir, mostrar as cores em baixa resolu- 
cao para todos os caracteres do sistema, separadas por um es- 
paco: 

5 HOME 
10 GR : HTAB 1 : VTAB 1 
20 FOR K = TO 255 

30 POKE 256 * PEEK(41) + PEEK(40) + PEEK(36), K 
40 CALL - 1036 
50 CALL - 10 36 
60 NEXT 

A figura 5 mostra os codigos de cores linicas, quando utili- 
zado o POKE em graficos de baixa resolucao. 

GRAFICOS EM ALTA RESOLUCAO 

A tela em alta resolucao e formada por 92 linhas (0 a 191) 
x 280 colunas (0 a 279), em full screen, num total de 53760 
(192 x 280) elementos de imagem, ou, entao, 160 linhas (0 a 
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POKE 
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85 ($55) 
102 ($66) 
119 ($77) 


PRETO 
VERMELHO 
AZUL ESCURO 
PURPURA 
VERDE ESCURO 
CINZA I 
AZUL MEDIO 
AZUL CLARO 




136 ($88) 

153 ($99) 
170 ($AA) 
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Figura 5 

1 59) x 280 colunas (0 a 279), em modo misto (graTico/texto), 
com quatro linhas de texto (20 a 23). 

Em alta resolucao, a tela 6 varrida por 64 grupos de tres li- 
nhas, deixando oito enderecos livres, ao final de cada grupo, 
que se diferenciam dos anteriores por oito linhas, assim: 
0-64- 128 
8-72- 136 
16-80- 144 
24-88- 152 

O mapeamento da memoria requer 7680 bytes, que corres- 
pondem a 192 linhas x 40 colunas tendo cada coluna 7 bits ou 
280 elementos (40 x 7) de imagem por linha. O programa abai- 
xo demonstra esta distribuicao : 




10 HOME 

20 HGR 2 

10 FOH K = 16384 TO 24567 

40 POKE K.25S : FOR L = I TO 10 

bO NEXT 



Figura 4 



Quando o endereco e o codigo de um carater sao acessados 
por POKE, em alta resolucao, havera a exibicao, ou nao, de 
pontos luminosos, conforme o equivalente em binario daquele 
codigo. 

Dos oito bits de um byte, sete sao responsaveis pela forma- 
?ao dos elementos da imagem, acendendo um ponto quando o 
valor for 1 e mantendo apagado, quandor for zero. O oitavo 
bit e* usado para controle das cores Branco 1 , Branco 2, Preto 1 
ePreto2. 

Na figura 6, podemos observar o efeito atraves do comando 
POKE, seguido do endereco e do c6digo,com os elementos da 
imagem em alta revolu9ao e os seus correspondentes binarios. 
Vemos entao que os codigos estao interpretados, de maneira 
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Figura 6 

reversa, isto e, os bits mais a direita do byte tem sua imagem 
na tela mais a esquerda, como se fosse observada por um espe- 
lho. programa a seguir reproduz a figura 6 na tela do video: 

10 HOME 
20 IIGK 

ill POB K ■ K-..' TO 14336 STEP 2048 

40 READ A : POKE K,A : NEXT 

50 DATA 0. 1 , I, 7 

60 FOR K = 8320 TO 12426 STEP 2048 

70 READ A : POKE K,A : NEXT 

80 DATA 127, 128, 255 

Esse fendmeno, de formacao da imagem de maneira reversa, 
pode ser melhor observado atraves da figura 7. Neste ultimo 
programa, exibimos a seguir, a letra R, na matriz 8x7, corres- 



7 6 5 4 3 2 1 



BIT DA COR 



□ 



ACESO 
APAGADO 




BINARIO (8 bits 



KI.EMENTOS DA IMAGEM 
(7 bits) 



12 3 4 5 6 



Figura 7-0 numero 83 ($53), sua representacdo bindria e correspon- 
dincia em grdfico de alta resolucdo, como imagem na tela de video. 



pondente as linhas de a 7 e colunas a 6, gerada por mapea- 
mento de bits, de acordo com a figura 7. 

10 HOME 

20 HGR 

30 FOR K » 8192 TO 15360 STEP 1024 

4 READ A. 

50 POKE K,A 

60 NEXT 

70 DATA 0, 30, 34, 34, 30, 6, 10, 50 

80 END 

Para finalizar, 6 bom frisar que os c6digos e 128, assim 
como, 127 e 255, tem o mesmo efeito visual: os bits apagados, 
no primeiro caso e todos acesos, no segundo. Isto porque o oi- 
tavo bit nao tem influencia, devendo ser o byte interpretado 
como sendo de 7 bits. 5 



Evandro Mascarenhas de Oliveira 6 mexiico e vem desenvolvendo suas 
atividades nas Areas de Laboratdrio Cli'nico e Instrumentacao M6dica. 
Trabalhou quatro anos com o computador Burroughs 6700 do Nucleo 
de Computacao Eletronica da UFRJ nas linguagens FORTRAN IV e 
ALGOL. E usuirio dos micros NE-Z8000 e AP II. 



m 




Banco denegocios 




3 Vezes Sem Juros 



TK 2000 

TK 85 

CP 500 cl 2 Drives 

GRAFIX 

UNITRON 

DISKETTES 

JOGOS PI TK 2000 

PLACAS DE CPM 

PROGUS 



PROGRAMAS 
APUCATIVOS 
FITAS PI VIDEO 
CASSETE 
MESAS PARA 
COMPUTADORES 
IMPRESSORAS 
MALAS PARA 
COMPUTADORES 




THE 

FIRST 

VIDEO 

CASSETE 

ENGLISH COURSE 

• Com 2 fitas de 3.30 hs. de duracao, um manual, um 
livro de exercicio e um de texto voce e toda a sua 
familia aprenderao a falar ingles, a lingua universal. 

• Produzido a cores pela equipe da TV mais 
importante do Brasil. • Gravado em estiidio e em 
externas mostrando sempre cenas do nosso cotidiano. 

• Preco de lancamento a vista com 10% de desconto 
ou em ate 1 2 vezes. 

CURSOS BASIC (Simples e Avancado), VISICALC, 
EDITOR DE TEXTO, PROFILE , MALA DIRETA/ETI. 
CRIANCAS E ADULTOS. 

COMPUTER CAMPING, Para Criancas de 8 a 14 anos. 
Periodo de Ferias e nos Fins de Semanas. 
PARQUE HOTEL DE ARARUAMA. 








Venha nos visitar e assistir a uma demonstragao. 
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BRASILTRADE CENTER informal* « 259-1 299 

pitacio Pessoa, 280 (Esquina com Visconde de Piraja), aberto ate as 22.00 h. Tel.: PBX (021) 259-12S 

Rua da Assembleia, 10 - Loja 112 - Centra Empresarial Candido Mendes 

Tel.: PBX (021) 222-5343 
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Minas debate impacto da 
tecnologia na sociedade 



A FundacSo Joa"o Pinheiro 
vai promover, de 20 a 23 de 
agosto, em Belo Horizonte, o 
SeminaVio Sociedade, Cultura e 
Tecnologia. 

Partindo da premissa de que 
"ser£ justamente pelo conjunto 
de decisdes que hoje esta*o sen- 
do assumidas, ou na~o assumidas, 
que o Brasil de amanhS vai ga- 
nhar o seu contorno e o seu de- 
sempenho polftico, institucional 
e social", o semina>io vai pro- 
curer, com o auxflio de t^cni- 
cos e intelectuais e dentro de 
um enfoque baseado na Cultura, 
detectar os elementos da "nova 
revoluca"o" que esta" se proces- 
sando "no campo da producao 
economica e industrial com as 
chamadas tecnologias avancadas 
na area da Inform^tica e das Te- 
lecomunicacoes". 

Os temas a serem abordados 
sa"o os seguintes, com seus res- 
pectivos expositores: Sociedade, 
Economia e Tecnologia (prof. 



Alui'sio Pimenta, presidente da 
FundacSb Joao Pinheiro); Novas 
Tecnologias da ComunicacSo e 
Cultura (Benedito Nunes); In- 
formStica, EducacSo e Juventu- 
de (Ziraldo Alves Pinto); Novas 
Tecnologias da ComunicacSo e a 
Criatividade Artistica (Julio Me- 
daglia); Novas Tecnologias da 
ComunicacSo e da InformacSo e 
a Semidtica (Decio Pignatari); 
Novas Tecnologias e a Memdria 
Cultural (Celina Vargas Moreira 
Franco); Novas Tecnologias e 
Meio Ambiente (Jose" Zatz) e 
Novas Tecnologias e os CenSrios 
do Futuro (Am Hear Herrera). 

semina>io ser3 realizado 
no auditdrio do Banco de De- 
senvolvimento de Minas Gerais 
— BDMG e os interessados po- 
dera"o inscrever-se ou obterem 
maiores informacOes junto a 
FundacSo Joao Pinheiro, Av. 
Joao Pinheiro, 146 - 109 an- 
dar, tel.: (031) 222-6833 ramal 
149. 



NCE promove 4° SEMICRO 

Nucleo de Computacao Eletronica da Universidade Federal do 
Rio de Janeiro (NCE/UFRJ) promoveri, de 27 a 30 de agosto, no audi- 
tdrio do Centre de Tecnologia no Campus da Una do Funoao, o 49 
SEMICRO — Semina>io de Microcomputadores e a 3 a Microexposicao 
de Fabricantes Nacionais de Micros e Perif6ricos. 

O advento dos supermicros ser3 o destaque da programacao que 
incluira\ em linhas gerais, va>ias palestras sobre tecnologia e aphcacdes 
em microinform^tica, software basico, microeletronica e automacao de 
escritdrios. AI6m dos conferencistas nacionais, o evento — que conta 
com o apoio da OEA, al6m da SEI, SBC, Finep, Capes, CNPq, Funteve, 
CNI/Senai, Serpro, Abicomp e Sucesu — contara tamb6m com a partici- 
pacao de convidados estrangeiros que apresentarao um panorama sobre 
as pesquisas cientfficas e as tendencies industrials em ambito interna- 
cionai. 

Paralelamente ao SEMICRO, esta prevista a realizacao de tres semi- 
na>ios especiais abordando a penetracao da Inform^tica em campos es- 
peefficos de atuacao: I SINED - Simp6sio de InformStica Educativa, 
I SACI — Semina>io de Aplicacoes Cientfficas em Informatica e II 
SEMAP - Seminario de Microinforma"tica na Administracao Publica. 

A 3 a Microexposicao ficari aberta ao publico em geral durante os 
quatro dias do SEMICRO, mostrando os mais recentes lancamentos em 
termos de hardware, software e publicacoes especial izadas. Maiores in- 
formacoes podem ser obtidas pelo telefone (021 ) 290-3222, ramais 214 
e 248 ou (021 ) 270-2438. 



Monitores de 
todas as cores 



A Computique acaba de re- 
ceber as primeiras unidades de 
monitores profissionaisde vfdeo 
com tubo na cor ambar. Fabri- 
cados pela Compo do Brasil, 
esses monitores tamMm estao 
disponi'veis com f6sforo azul. 
Quanto aos vfdeos em f6sforo 
verde, a Computique comerciali- 
za os das marcas Instrum, Com- 
po e Unitron. 

A loja tamWm fornece, sob 



encomenda, videos coloridos 
padrao RGB, utilizados princi- 
palmente nos micros de 16 bits. 
Para os que procuram uma 
opcao mais economica, para 
aplicacao sobretudo em micros 
domdsticos, a Computique ofe- 
rece o televisor Telefunken de 
14", que ja vem com fbsforo 
verde e adaptacao para vi'deo re- 
verso, selecionaVel no prdprio 
aparelho. 




Automacao comercial 
realiza I Congresso 




Terminal de Ponto de Venda, da Digirede 



"A automacao comercial vir3 
e na"o adianta nos opormos a 
ela". Com essas palavras, Edson 
Ditz, Secretario Especial de In- 
formatica, abriu o I Congresso 
de AutomacSo Comercial, pro- 
movido pela ABAC, de 18 a 22 
de junho, em Sa"o Paulo. 

Mas como anda a automacao 
comercial no Brasil? Segundo 
comentaram os participantes do 
encontro, ela ainda esbarra 
em muitos entraves, tais 
como a grande fatia do merca- 
do que nao tern poder aquisi- 
tivo para adquirir um terminal 
de ponto de venda PVD, equipa- 
mento que veio para substituir 
as caixas registradoras. O PVD 
deve ser acoplado a um leitor 
6ptico (scanner), que 6 instalado 
na esteira do caixa e le os c6- 
digos de barra (sinais de identi- 
ficaca"o do produto que sa~o 
transformados em precos). 
problema 6 que esses leitores 
opticus nao sa'o fabricados no 
Brasil e ainda na"o h<1 um c6digo 
de barras oficial no pafs, o que 
esta previsto para breve. Outro 
grave problema 6 a legislaca~o 
fiscal sobre as caixas registrado- 
ras, que 6 diferenciada em cada 
estado. Todos esses entraves fo- 
ram amplamente discutidos du- 
rante o Congresso. 



Mas apesar de todos os obs- 
taculos, muitas lojas e supermer- 
cados \& fazem uso da automa- 
ca"o. No Mappim as miquinas 
registradoras ja sao conectadas a 
micros, podendo fornecer a nota 
fiscal de venda com a simples 
digitaca*o do eddigo do produto. 
Ja no Makro funcionam mais ou 
menos 30 terminals de ponto de 
venda em cada loja. Esses ter- 
minals sa'o ligados a um IBM 
4341 e processam ate" 10 mil no- 
tas fiscais por dia. Oepois de 
emitida a nota fiscal 6 dado bai- 
xa no estoque referente a mer- 
cadoria vendida, e a qualquer 
hora & possfvel obter listagens 
do volume total de vendas e dos 
produtos que precisam ter repo- 
sica"o no estoque. 

No Brasil quern controla o 
mercado de terminals de ponto 
de venda 6 a Tecnodata, com 
dois mil terminals instalados. A 
Racimec e a Zanthus tambeYn 
esta"o incorporando inovacdes as 
caixas registradoras. Paralela- 
mente ao Congresso houve uma 
feira onde foram apresentadas as 
inovacdes do setor. A Casa Rio 
Prata mostrava uma caneta ele- 
tronica (light pen) e uma m&- 
quina registradora acoplada a 
um scanner, importada dos Esta- 
dos Unidos. 
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Distribuidora de software 



Acaba de ser inaugurada a 
Disoft Distribuidora de Softwa- 
re S/C Ltda., que tem como ob- 
jetivo estabelecer convgnios com 
software-houses e autores inde- 
pendentes de todo Brasil, para 
distribuicao de sistemas e aplica- 
tivos para microcomputadores. 
A Distribuidora tamWm pre- 
tende dar aos produtos padroes 
de acabamento, embalagem e 
confiabilidade para sua comer- 
cializaca*o. A distribuicao sera" 
feita somente a lojistas, acom- 



panhada de material promocio- 
nal e do apoio necessa>io, para 
que a venda de software estimu- 
le a venda de hardware e supri- 
mentos. 

A Disoft — que fica na Av. 
Brigadeiro Faria Lima, 1664 — 
49 andar. tel.: (011) 813-0497, 
Sao Paulo — \& tem disponi'veis 
sistemas de Controle de Esto- 
que, Gesta"o de Condom mios, 
Controle Financeiro de Obras, 
Mala Direta e Faturamento de 
Leasing, entre outros. 



Atualizacao profissional 



Analise Comparativa dos Mi- 
crocomputadores e o tftulo do 
seminario que o professor Em- 
manuel Lopes Passos vai minis- 
ter no I BAM de 15 a 17 de 
agosto, destinado a t^cnicos e 
gerentes da area de computacao 
envolvidos com o planejamento 
e instalacao de micros na em- 
press. E entre 20 e 21 de agos- 
to, o I BAM realiza, para geren- 
tes e analistas de sistemas e de 
suporte e coordenadores de pro- 
jetos na aVea de teleprocessa- 
mento, o semindrio Automacao 
de Escritdrios, sob a responsa- 
bilidade de Evandro Barreira Mi- 
let. O custo desses seminaVios, 
que incluem ainda Informa'tica 
Distribui'da (23 e 24 de agosto) 
e Marketing Inter no do CPD (29 
a 31 de agosto) fica entre Cr$ 
400eCr$ 600 mil. 



O I BAM vai promover, ainda, 

/// Curso de AtualizacSo em 
Ana" Use de Sistemas. Com ni'vel 
de pbs-graduacao latu sensu, o 
curso tem cerca de dois meses e 
meiodeduracao(20/08a 08/11) 
e seu custo dever3 ficar por vol- 
ta dos Cr$ 200 mil mensais. Os 
principals temas abordados sa~o a 
Atualizacao Metodoldgica, O Es- 
tado da Arte da Tecnologia de 
Informa'tica e AtualizacSo Ge- 
rencial, estando ainda previstos 
seminarios nas a>eas de Automa- 
cSo Industrial /Robdtica. Auto- 
macSo de Escritdrios. In forma - 
tizacSo da Sociedade, O Profis- 
sional de Informa'tica e A Po- 
litica de Informa'tica no Brasil. 
Maiores informacdes na sede do 

1 BAM. no seguinte endereco: 
Largo do I BAM, n9 1, Botafo- 
go, CEP 22282. tel.: (OLD 266- 
6622. Rio de Janeiro - RJ. 




Super 700, o novo 
micro da Prologica 



A Prol6gica esta" lancando o 
Super 700. micrc de 8 bits, 
compati'vel com os Sistemas 600 
e 700, podendo, assim, utilizar 
todo o software ja" desenvolvido 
para estes micros. 

Super 700 tem quatro m6- 
dulos: UCP, Vfdeo, teclado e 
fonte de alimentacao e preve 
piacas de expansab para conec- 
tar perifeVicos (impressora, plot- 
ter, modem). O equipamento 
possui quatro microprocessado- 
res, tres Z80A, sendo que o pri- 
meiro £ o gerenciador do siste- 
ma e acessa 64KB de membria 
RAM, controla as duas portas 
RS 232 e 3 slots para expan- 
sdes; o segundo controla as uni- 
dades de disco flexivel e n'gido e 
tem 2KB de membria RAM e 8 



KB de EPROM; o terceiro con- 
trola vfdeo e teclado com 10 KB 
de membria RAM. O quarto mi- 
croprocessador e um Intel 8035, 
que e%\a no teclado e realiza a 
leitura, decodificacao e trans- 
missao de dados. O teclado pos- 
sui 103 teclas, 65 alfanumericas, 
14 teclas para operacdes arit- 
meticas, cinco para posiciona- 
mento do cursor, 15 de funcao 
e quatro especiais. O vfdeo 6" de 
12 polegadas, com capacidade 
para 80 colunas e 27 linhas, fbs- 
foro verde, 4 KB de membria 
RAM estStica (armazena ate" 
duas paginas). O Super 700 es- 
creve em portuguSs, japones, 
russo e grego e reproduz os mais 
sofisticados si'mbolos matema'ti- 
cos. 



f STRINGS j 



* Atendendo a pedidos de usuarios, a Prolbgica esta" oferecendo o CP- 
500 com nova cor de gabinete: cinza escuro. * A Prodesp — Cia. de 
Processamento de Dados do Estado de Sao Paulo tem novos presidente 
e diretor administrativo financeiro, respectivamente, os engenheiros 
Egydio Bianchi e Jose 1 Luis Ricca. *■ Apbs nomear 1 5 revendedores em 
todo o pafs para comercializar os micros Cacula e Cacula Dual, a Danvic 
inaugurou recentemente a sua primeira filial, localizada em Porto Alegre 
e administrada pela Datasystems.* Souza's Computer Center esta aten- 
dendo em novas instalacoes, na Av. Domingos Ferreira, 2965, Boa Via- 
gem, Recife, ir Softacervo e um clube para criancas e adolescentes que 
tem por objetivo a troca de programas prontos para rodar (jogos, educa- 
tivos etc.). Os interessados em se associarem devem escrever para a Rua 
Pardal, 558, Vila Pde Manuel da Nobrega, CEP 13100. Campinas - SP. 
Jf A Microshop oferece treinamento e assistencia na implantacao do Link 
727. Para maiores informacdes, entrar em contato com o Sr. Carlos pelo 
tel.: (01 1 ) 853-9288. * Cr$ 1 milhao 500 mil e quanto a SUCESU vai 
dar para os ganhadores das tres categorias estabelecidas pelo PrSmio 
Imprensa do Informdtica 84: Informacao Especial izada, Reportagem 
Geral e Materia Especial, esta.dentro do tema do Congresso - Onde 
Estamos. Para Onde Vamos. Podem concorrer trabalhos divulgados em 
vei'culos impressos ou audiovisuais entre 19 de Janeiro e 19 de novem- 
bro de 1984. 4- J3 estao em funcionamento no Eldorado Plaza e Shop- 
ping Center Eldorado, em Sao Paulo, os primeiros terminals Credicard/ 
Visa, que permitem aos usuaVios desses cartoes de credito efetuarem seus 
pagamentos em apenas 40 segundos, com total seguranca para o comer- 
ciante. A empresa pretende estender esses terminals gradativamente a 
toda a rede Eldorado, na capital paulista, bem como a outros estabele- 
cimentos filiados. •* A SEI acaba de homologar o PC 2001 , micro de 16 



bits compatfvel com IBM-PC e fabricado pela Microtec. Com a homolo- 
gacao, o equipamento poderi ser vendido a instituicoes governamentais 
e ser financiado atrav6s do Finame. •* Basketball, Auto Racing, Space 
Armada, Tron Deadly Discs e Rerversi sao os novos jogos que a Digi- 
play esta colocando no mercado para o videogame Intellivision. At6 
outubro, a empresa pretende colocar no mercado 14 novos cjrtuchos, 
perfazendo um total de 30 ti'tulos. Jf A Cobra - Computadores e Siste- 
mas Brasileiros S.A. divulgou o seu mais recente balanco. em que apre- 
senta um resultado de Cr$ 9,8 biihoes. As vendas cresceram 30% em re- 
lacao ao exercfcio anterior, enquanto o faturamento global atingiu a ci- 
fra dos Cr$ 71 ,4 bilhoes.*lnaugurada recentemente, aSkill-lnformatica 
tem como objetivo fornecer programas conversacionais para pessoas 
leigas em programacao. Representame da linha norte-americana de soft- 
ware Star, a empresa dispoe, entre outros, de programas de matriz de 
calculo, banco de dados e processacor de textos.-^A Kristian Eletroni- 
ca Ltda. colocou no mercado seis novas f itas com jogos para o TK-2000 
Color - Gobbler, Space Attack, Operacao Perigo, Desafio Fatal, Corri- 
da Maluca e Contra-Ataque — , al6m do livro Os 40 Me/hores Jogos para 
seu TK/CP 200 e Sinclair. A Kristian, alids, \& esta funcionando em seu 
novo endereco: Rua Gonzaga Bastos, 112, Tijuca, CEP 20541, Rio de 
Janeiro - RJ. tel.: (021) 268-8249. * Embratel e Abicomp divulgaram 
dia 29 de junho as conclusoes do grupo de trabalho que definiu o pro- 
tocolo de comunicacao entre conversores BSC-3/X.25, para acesso a 
Renpac. Os tecnicos da Abicomp estudam agora protocolos para inter- 
ligar conversores BSC-1/X.25 e entre computador e PAD (Packet 
Assembler-Disassembler), este ultimo para acesso de equipamentos 
assfncronos, compatfveis com teletipo. _ 
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ABNT estuda compatibilidade 
dos equipamentos nacionais 



At 6 o final deste ano deverao estar con- 
clui'dos os trabalhos da Comissao de Estudo 
estabelecida pela Associacao Brasileira de 
Normas Tecnicas — ABNT com o objetivo 
de definir um conjunto padrao de caracte- 
res comum a toda a industria e que permiti- 
ra o intercabibio de informacd'es entre os 
diferentes equipamentos disponfveis no mer- 
cado, mediante um nfvel mmimo de compa- 
tibilidade entre eles. 

Para atingir tal objetivo, comenta Frede- 
ric do Couto, coordenador da comissao e 
representante da Abicomp, ha" vaVios proble- 
mas a resolver. Em primeiro lugar, 6 preciso 
garantir a compatibilidade da norma com o 
que existe nab s6 no mercado interno, como 
tamWm no exterior ("nab podemos ser uma 
ilha"), e sem perder de vista os desenvolvi- 
mentos tecnologicos \a em curso ou ainda 
por vir. 

Outro problema a solucionar 6 que a 
norma internacional seguida no Brasil — o 
padrab ASCII (American Standard Code for 
Information Interchange) — apresenta uma 
serie de ambiguidades (ex.: caracteres que 
podem ter mais de uma funcab determina- 
da). Isso, segundo Couto, deve ser elimina- 
do, posto que inevitavelmente conduz a 
curiosa situacab de todos os fabricantes se- 
guirem a mesma norma e seus equipamen- 
tos nab serem compatfveis entre si. £ por 
isso, explica ele, que os conjuntos de carac- 
teres nab batem no Brasil. 

A norma ASCII, prossegue Frederic do 



Couto, traz ainda uma dificuldade que diz 
respeito a sua prbpria abrangencia: tern 83 
padrCes, e ela pr6pria diz que nenhum ter- 
minal pode reunir todas as caracterfsticas 
previstas, uma vez que tern por final idade 
cobrir uma gama muito ampla de maquinas, 
tais como terminals de vfdeo, impressoras, 
fotocompositoras etc. No Brasil, acrescenta 
o coordenador da comissao, esta"-se procu- 
rando fazer com que as empresas digam cla- 
ramente qual 6 o seu conjunto de facilida- 
des, classificando-os segundo nfveis. 

Em termos pr£ticos, a norma a ser esta- 
belecida pela ABNT — em comum acordo 
com a industria, o governo e demais setores 
interessados — consiste na utilizacab de dois 
subconjuntos de caracteres, um bisico (o 
ASCII, depurado de suas ambiguidades) e 
um complementar que devera - incluir, al6m 
do Portugues, sfmbolos especfficos de v3- 
rias h'nguas culturalmente vizinhas, como os 
pontos de exclamacao e interrogacab in- 
vertidos do Espanhol, o s forte do Alemao, 
e o oe contra (do do Frances. 

Sob o ponto de vista tecnico, exemplifi- 
es Couto, isso 6 plenamente viaVel e \& foi 
feito no Japao para acondicionar os carac- 
teres ideograficos da lingua japonesa. Mas 
as dif iculdades a serem vencidas para que se 
materialize uma norma brasileira nab se 
prendem apenas aos laborat6rios de pesqui- 
sas e as linhas de montagem. Conforme re- 
conhece o representante da Abicomp, "um 
padrab sempre incomoda um pouco a to- 



dos, sempre fere interesses". Portanto, "pa- 
ra se ter um padrab, 6 preciso ter em vista o 
interesse maior do pafs, administrando-se os 
casos particulares". 

A comissab ja solicitou a comunidade 
uma proposta de teclado, enquanto que o 
Centro de Tecnologia para a Informdtica — 
CTI esta elaborando um me'todo de ensaio 
que permitira verificar, de maneira clara e 
objetivo, se os equipamentos e, principal- 
men te, as configuracfies que integram ("to- 
rnado de maneira isolada, cada elemento 
pode respeitar o padrao, mas nab o sistema 
como um todo"), enquadram-se nas normas 
estabelecidas. 

Uma coisa que Couto faz questab de res- 
saltar e" o carater aberto dos trabalhos da co- 
missab que coordena. "Nada vai ser empur- 
rado goela abaixo", enfatiza ele com o bom 
humor que Ihe e" caracterfstico, ressaltando 
que os assuntos serab amplamente debati- 
dos e que os documentos basicos ]a difun- 
didos pela ABNT "nab sab um produto aca- 
bado. Eles tern lugar para muitos pontos de 
discussab". 

A comissao, denominada Comunicapa"o 
Homem-Ma'quina e Portabilidade de Arqui- 
vos e Dados, pertence ao Subcomite" de 
Hardware do Comitfi Brasileiro de Compu- 
tadores e Processamento de Dados — COBI, 
da ABNT. Frederic do Couto falou a MICRO 
SISTEMAS durante a reuniab realizada dia 
19 de junho, estando o pr6ximo encontro 
marcado para 14 de agosto no mesmo local: 
a sede do COBI, no Rio de Janeiro. 



5° ENESI mostra tendencia 
mundial da Informatica 

A TendSncia Mundial dos Negdcios de Informitica. Este e o tema 
central do 5? ENESI — Encontro Nacional das Empresas de Servicos de 
Informatica, a realizar-se no Hotel Nacional-Rio, de 24 a 26 de setem- 
bro pr6ximo, numa iniciativa da Associacab Brasileira das Empresas de 
Servicos de Informatica — Assespro, com patrocmio da Embratel e 
apoio da Secretaria Especial de Informatica — SEI e da Confederacab 
das Associacoes Comerciais do Brasil. 

O panorama internacional ficara" a cargo de empresas especial izadas 
dos Estados Unidos, Japao e Franca que, mediante roteiros depergun- 
tas pr6-estabelecidas pela Assespro, irab mostrar as suas congeneres na- 
cionais — que operam nas a>eas de bureau, software e system-houses, 
consultoria, treinamento e comercializacab — as tendencias observadas 
nos pai'ses li'deres no emprego da Informdtica, fornecendo aos empre- 
sdrios brasileiros subsfdios para a orientacab dos seus neg6cios. 

Com base nos depoimentos expostos, o 59 ENESI procurar^ anali- 
sar as informacdes obtidas, visando o fortalecimento do setor nacional 
de servicos e de software. Fora isso, o encontro tern como objetivos 
concretizar acordos e convenios, envolvendo o setor de servicos, 6rgabs 
govemamentais, e outros segmentos da comunidade de Informatica, 
alem de estimular a troca de experiencias e informacfies entre os parti- 
cipantes, em especial no 5mbito do empresariado nacional. 

AI6m de contar com a presenca de representantes de Portugal, Es- 
panha e pafses da America Latina e Africa, o 59 ENESI apresenta duas 
importantes novidades:a instalacab de uma Bolsa de Neg6cios destinada 
a incentivar a efetivacab de contratos e transacoes comerciais durante o 
evento e a exposipao de equipamentos, cuja finalidade 6 divulgar novas 
maquinas, suprimentos e tecnicas disponfveis para as empresas nacio- 
nais de servicos e software. Os interessados em participar do evento po- 
derab inscrever-se ou obter maiores informacdes junto a Assespro Na- 
cional, Av. Rio Branco, 45 - si. 1405, CEP 20090, tel.: (021) 253- 
1680. Rio de Janeiro - RJ. 




Teclado para Sinclair 



Para facilitar o uso dos mi- 
crocomputadores da linha Sin- 
clair em atividades profissionais, 
a Speed Eletro Eletronica esta 
lancando um teclado profissio- 
nal tipo maquina de escrever 
com gabinete em fiberglass. Esse 
conjunto 6 vendido em tres mo- 
delos diferentes: SP-400; SP- 
230; e SP-1 60. O SP-400 e com- 
posto por teclado e gabinete 
dimensionado para comportar o 
micro, expansao e fonte de ali- 
mentacao, e sobre ele pode ser 



colocado um terminal de video 
de at£ 12 polegadas. O segundo 
modelo 6 composto por teclado 
com gabinete proprio, ligado ao 
micro atravgs de cabo multivias; 
e o SP-1 60 6 composto por gabi- 
nete e teclado numerico de 12 
teclas. A empresa comercializa 
tambem os componentes desses- 
produtos para que o usuario for- 
me o conjunto de acordo com 
suas necessidades. A Speed fica 
na Rua I, n9 395, em Conta- 
gem, MG.Tel. (011) 463-31 71 . 
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Datalogica langa dBase III 
e nova versao do dBase II 



A Datal6gica Transnational 
estS lancando no Brasil o dBA- 
SE III, gerenciador de banco de 
dados relacional para micros de 
1 6 bits e de maior porte. O novo 
sistema permite ao usuaVio en- 
trar, manipular e alterar grande 
volume de dados, al6m de desen- 
volver programas de aplicacao 
personal izados. 

O dBASE III tern como ca- 
racterfsticas principais a capaci- 
dade de armazenar at6 2 bilhfles 
de registros por arquivo, com 
128 campos por arquivo e o uso 
de ate" 10 arquivos abertos si- 
multaneamente. Esse novo sis- 
tema, que trabalha com vfdeo 
colorido, seri inicialmente co- 
mercializado no mercado brasi- 
leiro por 200 ORTN. 

A empresa tamWm esta" lan- 
cando uma nova versa"o do dBA- 
SE II, agora dBASE 2.41.0 no- 
vo software permite fazer cdlcu- 
los com uma precisa"o nume>ica 
de ate 16 dfgitos, conta com 
buffer de teclado, spool de im- 
pressed e opcional de transmis- 
sa"o de arquivos para diferentes 
modelos de micros, em modo 
local ou remoto. Os usua>ios do 
dBASE II que quiserem adqui- 
rir a nova versa"o, pagarSb ape- 
nas o equivalente a 10% do pre- 
co original, pela troca. 

Constitui'do ao mesmo tem- 
po de um gerenciador de bancos 
de dados relacional, de uma lin- 
guagem de programacao e de um 
conjunto de utilita>ios, o dBA- 
SE II, apesar de sua compiexida- 
de a nfvel interno, 6 bastante 
simples de operar, na~o exigindo 
do usudrio conhecimentos pre- 
vios de programaca"o. 

A mecflnica de armazena- 
mento e manipulaca"o dos dados 
e automaticamente feita pelo 
sistema, orientado pelo usuaYio 



mediante um conjunto de co- 
mandos de facil aprendizado e 
utilizaca"o, tais como CREATE, 
para criar arquivos, DISPLAY, 
para consultar algum ou todos 
os dados, APPEND, que permite 
acrescentar dados a um arqui- 
vo, FIND (pesquisa de dados) 
etc. 

Gerenciador de banco de da- 
dos mais vendido em todo o 
mundo, com 200 mil copias ins- 
taladas, este sistema pode traba- 
Ihar com praticamente todos os 
microcomputadores existentes, 
uma vez que roda sob os siste- 
mas operacionais CP/M-80 e 86, 
e MS-DOS. Suas necessidades 
mfnimas de memdria RAM sa~o 
as seguintes: 48 Kb para a maio- 
ria dos micros; 56 Kb para os 
compatfveis com o Apple e 128 
Kb para os equipamentos basea- 
dos nos microprocessadores In- 
tel 8086 e 8088. 

Desenvolvido pela Ashton 
Tate, o dBASE II, assim como o 
sistema de automaca"o de escri- 
t6rios Friday, 6 comercializado 
no Brasil pela Datalogica Trans- 
national, representante exclusiva 
da empresa norte-americana. Em 
vista da existencia de um sig- 
nificative numero de cdpias na"o 
autorizadas do dBASE II ja* em 
uso no mercado brasileiro.a Da- 
taldgica est£ oferecendo aos 
usuirios desses softwares a re- 
gularizacao de suas copias, com 
o recebimento de um numero 
serial autorizado que garantira" 
ao usuSrio o treinamento, supor- 
te tecnico e todas as atualiza- 
gdes feitas pela Ashton Tate. 
Para isso, basta entrar em con- 
tato com a Datalogica: Av. Pau- 
lista, 2028 - 29 andar, Sa"o Pau- 
lo - SP, tel.: (011) 283-0355; 
Av. Rio Branco, 177 - 159 an- 
dar, Rio de Janeiro - RJ, tel.: 
(021)221-2155. 



PRECOS 



A empresa Madison S/A Importacao e Come>cio, com sede 
em Curitiba a Rua Marechal Deodoro, 311/315. Tel.: (041) 
224-3422 e filiais em Londrina, Arapongas, Maringa\ Rolandia e 
Joinville, remeteu-nos a seguinte tabela de precos em ORTN rela- 
tiva aos equipamentos que comercializa: 

Maxxi (16 K) - 90.53 

HP-85B (16 K)- 783,12 

CP300(16K)- 58,62 

CP 500 (48 K) - 1 50.1 3 (sem drive) 
225,58 (um drive) 
356,10 (dois drives) 

TK83 ( 2K) - 19,60 

TK85( 16 K)- 33,18 
(48 K) - 55,06 

TK2000(48K) -75,13 



Automacao bancaria 
tern Feira no Anhembi 

De 13 a 17 de agosto, no Palacio das Convencoes do Anhembi, sera 
realizada a V Feira Latino Americana de Equipamentos de AutomacSo 
Bancdria. Essa feira tern o patrocmio da Federaca"o Latino Americana 
de Bancos, FederacSo Nacional de Bancos e Federacao Brasileira das 
Associacoes de Bancos e conta com o apoio do Centro Nacional de Au- 
tomacSo Banca>ia. A promoca"o e organizaca"o f icam por conta da Guaz- 
zelli Associados Feiras e Promocdes. 

Para essa feira espera-se a participacao de 400 delegados internacio- 
nais, representantes de entidades financeiras. Em paralelo a Feira sera - 
realizado o X Congresso Latino Americano de AutomacSo Banca'ria, 
com o objetivo de promover a integraca"o entre banqueiros nacionais e 
internacionais, atraves da troca de informacdes tecnico-cientfficas da 
area. 

Inforamazdnia 84, 
em Belem do Para 



Informazonia, I Simpdsio e 
I Exposicao de Inform^tica na 
Amazonia, ser3 realizado de 27 a 
31 de agosto em Beldm do Para\ 
no Campus da Universidade 
Federal do Para, com patrocmio 
da SEI, UFPa e apoio da 
SUDAM e BASA. 

O Informazonia 84 tern co- 
mo finalidade mostrar aos em- 
presa>ios e organismos governa- 
mentais o que hi de mais mo- 
derno em produtos para proces- 
samento de dados, telecomuni- 



cacoes, microfilmagem, supri- 
mentos e materials para geren- 
ciamento da informacao. Parale- 
lamente serao promovidos cinco 
cursos em horirio noturno: 
Introducao aos Sistemas Micro- 
gr&ficos, Programacao Estrutura- 
da em COBOL, Custos em Pro- 
cessamento de Dados, Informi- 
tica para Usuirios, lnforma"tica e 
Medicina. O Informazonia est£ 
sendo promovido pela SUCESU, 
maiores informacoes pelo tel.: 
(091 ) 225-3060. 



Assessoria a empresas 
em Campina Grande 

A Data Shopping S/C Ltda., de Campina Grande, Parafba, presta ser- 
vicos de desenvolvimento de software para micros da linha Apple ou 
CP/M, assessoria em processamento de dados, cursos de introducao ao 
BASIC e de BASIC avancado e treinamento em computacao dirigido as 
empresas. 

Contando entre seus clientes com o S. A. DiaVio de Borborema, Cur- 
tume Antonio Villarim S.A., Manoel Ferreira ComeVcio S.A., Felinto 
Importadora & Exportadora Ltda., Atlantida lmobilia>ia Ltda. e a rede 
de supermercados Celino Loureiro & Cia., a Data Shopping ja" tern de- 
senvolvidos e implantados os seguintes sistemas: Contasa Pagar, Contas a 
Receber, Folha de Pagamento (mensal ou semanal), Controle de Pedi- 
dos, Faturamento e Emissao de Duplicates, Controle de Estoque e Con- 
tabilidade. A empresa fica na Rua Maciel Pinheiro, 365 — 19 andar, 
salas 1 e 2. 

O 16 bits da Edisa 



A Edisa obteve aprovacSb da 
SEI para a industrializacao do 
ED-680, microcomputador de 
16 bits baseado no microproces- 
sador Motorola 68000L 10. O 
lancamento do micro esta" pre- 
visto para novembro prdximo e 
sua comercializaca"o para o pri- 
meiro semestre de 1985. 

O ED-680 tern como confi- 
guracSo bSsica UCP de 51 2 Kby- 
tes de memdria RAM, um ter- 
minal de vfdeo, uma unidade de 
disco Winchester de 80 MB, uma 
unidade defita Streamer de 1/4" 
de 20 MB e uma impressora de 
200 CPS. 



A configuraca"o maxima do 
equipamento caracteriza-se por 
UCP de 2 MB de memdria RAM, 
unidades de disco de at£ 768 
MB, oito fitas de 72 MB, contro- 
ladores de comunicacao de 8 li- 
nhas a 9600 bps cada e supor- 
tando at6 64 terminals, al6m de 
duas impressoras de 600 Ipm ou 
uma de 1500 Ipm. 

Quanto ao software, serSb 
utilizados o EDIX, nacional 
compatfvel com o UNIX, e o 
MUMPS em cooperacao com a 
Biodata, system-house do Rio 
de Janeiro. ■ 
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O comando 

Deo 

tratamento 
de valores 
numericos 



Todo programa, seja ele em 
Assembler ou em BASIC, 
contem uma se*rie de 
manipulates com valores 
nume'ricos na forma de operacOes 
matemiticas, tais como soma, subtracao, 
multiplicacao, potenciaca"o etc. Em 
linguagem de alto nivel, essas 
manipulacOes podem ter uma estrutura 
funcional direta, ou seja, 
X=A+5*(4/Y)**7-SQR(B+9) por 
exemplo. No caso de linguagens de 
baixo nivel, no entanto, uma expressa"o 
como esta demandaria uma estruturacSo 
de registradores bastante complexa. 
Num outro extremo, temos as strings 
ou caracteres de texto (mensagens) que, 
em Assembler, podem constituir-se 
numa grande dor de cabeca para o 
programador, pois elas podem estar 
inseridas junto a n outras coisas, e as 
vezes uma correca"o gramatical pode 
demorar horas ate - que o erro seja 
localizado. 

Esses serao os dois assuntos tratados 
este mes, e para que possamos dar 
partida em nossa discussao sera" 
necessano ter o MICRO BUG na 
mem6ria do micro, seguindo o 
procedimento padrSo. 



OS VALORES NUMERICOS 



Em linguagem de mdquina, a operacao 
com valores numericos deve ser sempre 
cercada dos maiores cuidados e rigores, 
pois basta um s6 descuido para que todo 
o trabalho va" por agua abaixo. 
principal problema diz respeito aos 
limites de valores do byte, ou seja, 
255 para um byte e 65535 para dois 
bytes (255*256+255). 

que acontece quando um desses dois 
limites 6 superado vai depender muito 
da organizacSo e do cuidado na 
programacSo. Em linguagem de mdquina, 
um evento desse porte 6 documentado 
por um ou dois bits da flag F. 
Vejamos dois exemplos pr£ticos: 

1 - supondo B=45 e A=22, o resultado 
da operacao ADD A,B (em BASIC 
corresponderia a LET A=A+B) seria o 
Acumulador A valendo 67; 

2 - supondo B=185 e A=76, o resultado 
de ADD A nSo seria A=261 e sim A=5 
(dirfamos, a grosso modo, que o 
Acumulador deu uma volt a completa, 
pois 5=261-256). 

Essa caracten'stica do Assembler corre o 



risco de ser facilmente esquecida, e 
quando isso acontece os resultados das 
operacOes matemdticas acabam na"o 
correspondendo ao desejado. Por outro 
lado, nao basta que os cuidados com a 
seguranca operacional sejam respeitados. 
Existe um outro problema a ser 
superado, que 6 a representacSo grdfica 
de um valor qualquer na tela de video. 
Imaginemos um registrador com um 
valor aleat6rio (158, por exemplo). 
Para representd-lo no video 
precisariamos de tres caracteres (1 , 5 e 
8). No entanto, nao podemos 
simplesmente enviar ao arquivo de 
imagens estes valores, pois o resultado 
seria a impressa"o de tres caracteres 
graficos isolados (acompanhe pela tabela 
de c6digos e caracteres do manual do 
micro). Teremos que traduzir esses 
valores para os caracteres 
correspondentes, ou seja, 29, 33 e 36. 
Mas, se o registrador que possui o valor 
1 58 6 composto de um unico byte, 
como saber quais caracteres usar para a 
impressSO, no vfdeo, de tal valor? Ai 
estd um bom problema para o 
programador Assembler... 
No MICRO BUG temos vanas 
ocorrencias de valores numericos. Uma 
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Listag 


em 1 


rot ina IVALDE 


( i dent i f i ca urn val 


or numer i co> 


7A9E 


Oi 03 


15 


LD BC r 1503 


•determina posicao AT 21,3. 


7AA1 


CD F5 


08 


CALL 08F5 




7AA4 


2A OE 


4G 


LD HL, (400E) 


-posicao no video. 


7AA7 


ii 00 


DO 


LD DE,0000 


• in ic ial i za par DE. 


7AAA 


7E 




LD A,(HL) 


;det calculo dec ou hexa. 


7AAB 


FE OD 




CP OD 


;espec i f i cador I. 


7AAD 


28 2D 




JR Z,7ADC 




7AAF 


00 




NOP 


-calculo hexa. 


7AB0 


7Y 




LD A,(HL) 


;obt em urn d i g i to. 


7AB1 


B7 




OR A 


pretorna se for espaco. 


7AB2 


C8 




RET Z 




7AB3 


FE iA 




CP IA 


;retorna se for virgula. 


7AB5 


C8 




RET Z 




7AB6 


D6 iC 




SUB IC 


•valor real do digito. 


7AB8 


38 10 




JR C,7ACA 


;testa validade do digito 


7ABA 


FE 10 




CP 10 


• na faixa de a F. 


7ABC 


30 OC 




JR NC r 7ACA 




7ABE 


EB 




EX DE,HL 


•multiplica o acumulado em 


7ABF 


06 04 




LD B r 04 


; DE pela base 16. 


7ACi 


29 




ADD HL r HL 




7AC2 


10 FD 




DJNZ 7AC1 




7AC4 


4F 




LD C,A 


-soma o produto ao digito. 


7AC5 


09 




ADD HL,BC 




7AC6 


EB 




EX DE 7 HL 


■total final em DE. 


7AC7 


23 




INC HL 


;prox i mo digito. 


7 AC 8 


18 E6 




JR 7AAF 




7ACA 


CD Ci 


78 


CALL 78C1 


- impr ime DIGITO ILEGAL. 


7ACD 


29 2E 


2C 


2E 






39 34 


no 


2E 






3i 2A 


2C 


26 






Bl 








7ADA 


18 A9 




JR 7A85 


;reset 


7ADC 


23 




INC HL 


-calculo dec i mal . 


7ADD 


71 




LD A,(HL) 


;obtem um digito. 


7ADE 


B7 




OR A 


-retorna se for espaco. 


7ADF 


C8 




RET Z 




7AE0 


FE IA 




CP IA 


jretorna se for virgula. 


7AE2 


C8 




RET Z 




7AE3 


D6 IC 




SUB IC 


•valor real do digito. 


7AE5 


38 E3 




JR C,7ACA 


;teste validade do digito r 


7AE7 


FE OA 




CP OA 


;faixa de a 9. 


7AE9 


30 DF 




JR NC,7ACA 




7AEB 


E5 




PUSH HL 




7AEC 


F5 




PUSH AF 




7AED 


21 00 


00 


LD HL,0000 


•multiplica o acumulado em 


7AF0 


3E OA 




LD A r OA 


;DE pela base 10. 


7AF2 


06 08 




LD B,08 




7AF4 


29 




ADD HL r HL 




7AF5 


17 




RLA 




7AF6 


30 01 




JR NC,7AF9 




7AF8 


19 




ADD HL,DE 




7AF9 


10 F9 




DJNZ 7AF4 




7AFB 


Fl 




POP AF 




7AFC 


4F 




LD C,A 


•soma o produto ao digito. 


7AFD 


09 




ADD HL,BC 




7AFE 


EB 




EX DE,HL 


•valor total em DE. 


7AFF 


El 




POP HL 




7B00 


18 DA 




JR 7ADC 


; proximo digito. 




Av. do Contomo, 5826 '3° andar 

— Savassi — Beta Horizonte — 
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INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMATICA 



das mais importantes € a impressSo de 
um endereco de mem6ria e seu 
conteudo. Essa impressao pode vir na 
forma decimal (base 10) ou hexadecimal 
(base 16). Aldm disso, ha" o processo 
inverso, isto e\ a partir de uma dada 
representa9?o (em hexa ou decimal) 
calcula-se o valor bindrio correspondente. 
Para que essas operacOes sejam 
realizadas com o maior rigor, o SGM 
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possui uma rotina, chamada SVALDE, 
que devolve o conteudo do par DE com 
um valor digitado pelo operador via 
teclado. Para que SVALDE funcione 
a contento, 6 preciso ter o valor 
desejado na posifffo AT 21,3 do video 
— e isso £ obtido na inicializacSo de 
alguns comandos, como por exemplo do 
comando > M 4082. Como ja"vimos, 
existem alguns caracteres especiais >► 




CURSOS 
LINHA IBM (Apoio Marcodata) 

OS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1- COBOL: TECNICAS E 
OTIMIZAQAO 

MICROINFORMATICA 

BASIC - ASSEMBLER - PASCAL 
LOGO - CP/M - VISICALC 
dBASE II -WORDSTAR 

FORMAQAO DE PROGRAMADORES 

DURAQAO: 9 MESES 

CPD-ORT: IBM 4341 COM TERMINAIS 
LABORATORY DE MICROS 

TREINAMENTO IN HOUSE 

SOLICITE INFORMACOES E 
FOLHETOS EXPLICATIVOS 



RUA DONA MARIANA - 213 • BOTAFOGO 
TELS.: 226-3192 - 246-9423 



O COMANDO DEO TRATAMENTO DE VALORES NUM^RICOS 



envolvidos, tais como o S que informa a 
SVALDE se o numero esti numa base 
num^rica diferente daquela na qual o 
SGM esta ajustado (veja na edi956 
anterior as explicates sobre o comando 
A). 

A obtencSo do valor binario e" feita pela 
opera5a"o de multiplicaca'o digito a 
digito da base com o par DE. Assim, 
para obter um digito, a rotina multiplica 
o par DE pda base especificada , soma a ele 
o valor do digito e repete essa operacao 
ate" achar um espa90 ou virgula (usados 
como delimitador de campo). Na 
listagem 1 temos toda a rotina 
SVALDE e suas fases explicadas. 
Note, nesta listagem, como a 
multiplica9So na base 10 6 feita atravds 
de somas sucessivas, enquanto que na 
base 1 6 o resultado 6 obtido com 
muito mais simplicidade, somando um 
numero a si mesmo quatro vezes. Este 6 
tambem um dos motivos da preferencia 
pela base hexadecimal quando se 
programa em Assembler. Note ainda que 
os endere90s 7AAD, 7AAE e 7AAF 
contem um JUMP relativo e um byte 
vago para a mudanca de especifica9ao 
do comando A. 

pr6ximo passo a ser estudado 6, no 
sentido inverso, imprimir um valor 
binario na sua forma decimal ou 
hexadecimal, e para tanto usaremos a 
rotina SENDER que efetua as divisCes 
do valor pela base correspondente. 
Nesse ponto vamos considerar um 
importante fator que e a velocidade de 
execussao do comando que estiver 
utilizando SENDER, pois se ela for 
baixa a rotina antes de produzir a 
impressa"o do valor fara um loop de 
alguns cent^simos de segundo. 
Note, pela listagem 2, que o processo de 
impressa"o de um valor decimal e" 
extremamente simples, ao passo que 
para imprimir um numero decimal 
tivemos que lan9ar m3b de uma 
sub-rotina do sistema operacional do 
micro. 

Isso foi feito por varios motivos, sendo 
que o principal diz respeito a velocidade 
final de impressa'o, uma vez que, usando 
as rotinas de ponto flutuante do micro, 
o trabalho de programacSo seria muito 
mais direto, por£m a uma velocidade 
por demais lenta. Com o uso das rotinas 
de ponto flutuante nao ten'amos as duas 
velocidades do comando M quando este 
estivesse imprimindo endere90S 
decimais. No final do MICRO BUG 
explicaremos como utilizar tais rotinas 
quando a velocidade nao for fator 
primordial . 

Outro ponto a ser considerado diz 
respeito a rotina $ BYTE, a qual 
imprime um byte em hexadecimal. Ela 
e utilizada simultaneamente para a 
impressao do logotipo MICRO BUG, 





























Listag 


em 2 




rot ina SENDER 


imprime endereco 


de memor i a) 


7B02 


:*a 


26 


79 


LD A, (7926) 


;determina velocidade de 


7B05 


CB 


5F 




BIT 3, A 


; i mpressao. 


7B07 


cc 


B7 


7 


CALL Z.78B 




7B0A 


CB 


57 




BIT 2, A 


fdetermina base do endereco. 


7B0C 


20 


00 




JR NZ,78iB 




7B0E 


7C 






LD A,H 


; imprime endereco em hexa. 


7B0F 


CD 


3E 


7 8 


CALL 783E 




7Bi2 


70 






LD A F L 




7B13 


CD 


3E 


70 


CALL 783E 




7B16 


AF 






XOR A 


; imprime 3 espacos. 


7B17 


D7 






RST 10 




7B18 


07 






RST 10 




7Bi9 


D7 






RST 10 




7B1A 


C9 






RET 


jretorna. 


7B1B 


ES 






PUSH HL 


; imprime ender em decimal. 


7B1C 


IE 


FF 




LD E,FF 




7BiE 


01 


F0 


DO 


LD BC,D8F0 


;imprime dezena de milhar. 


7B2i 


CD 


El 


07 


CALL 07E1 




7B24 


ni 


18 


EC 


LD BC.FC18 


; i mpr ime mi lhar - 


7B27 


CD 


El 


07 


CALL 07E1 




7B2A 


01 


9C 


FE 


LD BC,FF9C 


; imprime centena. 


782D 


CD 


El 


7 


CALL 07E1 




7B30 


oe 


F6 




LD C,F6 


; impr i me dezena. 


7B32 


CD 


El 


07 


CALL 07E1 




7B35 


70 






LD A,L 


; i mpr i me un i dade 


7B36 


CD 


EB 


7 


CALL 07EB 




7B39 


2A 


OE 


4D 


LD HL, (400E) 


;produz tabulacao 


7B3C 


06 


09 




LD B,09 




7B3E 


7E 






LD A, (HL) 




7B3F 


05 






DEC B 




7B40 


2G 






DEC HL 




7B41 


IE 


76 




CP 76 




7B43 


20 


F9 




JR NZ,7B3E 




7B45 


AF 






XOR A 




7B46 


D7 






RST 10 




7B47 


10 


FD 




DJNZ 7B46 




7B4? 


El 






POP HL 




7B4A 


C9 






RET 


jretnrna. 





















Listagem 3 






COMANDO D 


Cdispl 


ay memor i a) 






7946 


77 


71) 




def 7D27 


;comando D. 


7D27 


AF 






XOR A 


; impr ime um espaco apos D. 


7D28 


D7 






RST 10 




7D29 


CD 


52 


7A 


CALL 7A52 


;chama 5CURS0R para endereco 


7D2C 


B7 






OR A 


f in ic ial . 


7D2D 


28 


07 




JR Z,7D36 


;recupera ultimo endereco. 


7D2F 


CD 


9E 


7A 


CALL 7A9E 


;calcula endereco digitado. 


7D32 


EB 






EX DE,HL 




7D33 


22 


2F 


7 9 


LD (792F),HL 


jguarda endereco em 792F . 


7D36 


CD 


60 


70 


CALL 7860 


;um scroll para cima. 


7D39 


CD 


DO 


7C 


CALL 7CDD 


; impr ime linha e avanca 8. 


7D3C 


CD 


DO 


70 


CALL 78D3 


;espera tecla pressionada. 


7D3F 


B7 






OR A 


jreset se for BREAK. 


7D40 


CO 






RET Z 




7D41 


FE 


30 




CP 30 


; identifies avanco. 


7D43 


28 


F4 




JR Z,7D3S 




7D45 


FF 


21 • 




CP 2F 


; identifies retrocesso. 


7D47 


CC 


11 


7D 


CALL Z,7Dli 




7D4A 


10 


FO 




JR 7D3C. 


;reinicia processo. 
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LANQAMENTO 

Micro 



projeto MICROBUG, desenvolvido pela equipe do CPD de MICRO 
SISTEMAS, foi concebido de forma a auxiliar os usua>ios de micros da 
linha Sinclair no entendimento e exploracao dos recursos da maquina. Sua 
construcao, passo apassonasp^ginasdeMS, temtido importancia definitive no 
sentido de iniciar e desenvolver os usuarios na programacao em linguagem de maquina. 
Devido ao enorme sucesso e repercussao do MICROBUG, refletidos nas diversas cartas que temos 
recebido, a ATI EDITORA LTDA. optou poroferecer a seus leitores a versao integral do MICROBUG. Paratal, 
foi contratado urn estudio especializado de forma a garantir urn padrao de gravacao profissional e uma emba- 
lagem selada e inviolavel que certamente voce ira" apreciar. Como a documentacao do MICROBUG comecou a 
ser publicada a partir da edicao de MS n9 31, oferecemos aqueles que adquirirem a fita A OPORTUNIDA- 
DE DE COMPRAR OS EXEMPLARES QUE PORVENTURA NAO POSSUAM POR UM PRE£0 ESPECIAL 
Aproveite esta oportunidade e usufrua, desde ja, deste incrivel programa em sua forma integral. Preencha o 
quadro acima e mande logo seu pedido. TIRAGEM LIMITADA. 



usando para tanto uma forma de stack 
compactada, ou seja, um linico byte 
representa dois caracteres graiicos ao 
mesmo tempo. Este assunto tambe'm 
veremos com mais detalhes numa 
pr6xima oportunidade, pois o 
importante no momento 6 fixar, atrave's 
da anilise das listagens 1 e 2, os 
processos de obtenca"o e impressa"o de 
valores nume'ricos em linguagem de 
maquina. 



O COMANDO D 

comando D (display) 6 um comando 
usado para pesquisa em blocos 
Assembler. Ele permite a visualizacao 
de uma linha no formato 
ENDERECO + 8 BYTES 
CONSECUTIVOS, identica aos blocos 
comumente publicados em MICRO 
SISTEMAS. De uma certa forma, ele 
tambem pode ser usado para conferir 
as listagens desses tais blocos. 

Os oito bytes que o comando apresenta 
podem ser impressos com seu valor em 
hexadecimal ou em caracteres graTicos. 
As palavras (tokens) do BASIC e os 
caracteres duplos, como < > , **, => 
etc., sa"o impressos como um ponto 
(.). chaveamento dessa impressffo 
6 feito pelas teclas SHIFT 4. 

Todos os recursos do comando M estSo 
tambem disponi'veis no comando D, 
ou seja: SHIFT S chaveia a velocidade 





rot ina 5AVND < 


Listag 

avanco do COMANDO 


em 4 

D) 




7CDD 


2 A 


2F 


79 


LD HL, (792F) 


;recupera end. arquivado. 


7CE0 


ES 






PUSH HL 




7CEi 


in 


08 


00 


LD BC.0008 


; i ncrement a 8. 


7CE4 


09 






ADD HL,BC 




7CE5 


22 


2F 


79 


LD (792F),HL 


jarquiva novo endereco. 


7CE8 


El 






POP HL 




7CE9 


CD 


60 


78 


CALL 7860 


jscroll para cima. 


7CEC 


CD 


0? 


? 1 •! 


CALL 7B02 


fimprime endereco. 


7CEF 


3A 


c'6 


79 


LD A, (7926) 


;identifica tipo impressao. 


7CF2 


06 


OH 




LD B F 08 




7CF4 


fti 


4F 




BIT i,A 




7CF6 


20 


OA 




JR NZ,7D02 




7CF8 


/r: 






LD A, <HL) 


;in>prime em hexadecimal. 


7CF9 


CD 


3F. 


7 8 


CALL 783E 




7CFC 


Of 






XOR A 


;imprime um eSpaco. 


7CFD 


07 






RST iO 




7CFE 


23 






INC HL 


•proximo byte. 


7CFF 


i() 


1-7 




DJNZ 7CF8 




7D0i 


09 






RET 


jretorna. 


7D02 


71. 






LD A, (HL) 


;imprime como caracter. 


7D03 


or 


7 7 




BIT 6, A 


;reconhece TOKENS. 


7D05 


28 


00 




JR Z,7D09 




7D07 


3E 


IB 




LD A, IB 


; i mpr i me " ." . 


7D09 


D7 






RST 10 




7D0A 


AF 






XOR A 


■imprime dois espacos. 


7D0B 


1)7 






RST 10 




7D0C 


07 






RST 10 




7D0D 


23 






INC HL 


; proximo byte. 


7D0E 


10 


F2 




DJNZ 7D02 




7D10 


9 






RET 


jretorna. 



de impressao das linhas; SHIFT E 
chaveia o endereco decimal/hexadecimal ; 
K e J avancam e retrocedem em oito 
bytes. Observa9a"o: vale relembrar que, 

































Lista 


8* 


?m 


5 




rot ina tRTRD ( 


retrocesso do 


COMANDO D) 


7Dli 


2 A 


2F 


79 


LD HL, (792 


F) 




jrecupera end. arquivado. 


7D14 


ill 


08 


00 


LD BC r 0008 






;decrementa em 8. 


7D17 


A 7 






AND A 








7D18 


ED 


4;-: 




SBC HL,BC 








7DiA 


22 


2F 


7 9 


LD (792F) 






jarquiva novo endereco. 


7D1D 


CD 


79 


7 8 


CALL 7879 






•scroll para baixo. 


7D20 


OE 


no 




LD C,B0 






;calcula 21 linhas acima. 


7D22 


A7 






AND A 








7D23 


ED 


42 




SBC HL,BC 








7D25 


18 


C5 




JR 7CEC 






;imprime os 8 bytes. 



para interromper este e qualquer 
comando, basta pressionar BREAK, e 
que SHIFT 1 funciona como RESET 
geral do sistema. 

A implementa9a"o do comando D deve 
seguir procedimento identico ao dos 
outros comandos, sendo que a primeira 
modificacfo a ser feita 6 na Tabela de 
DefinvcSo dos Comandos. A partir dai' 
6 so digitar as listagens 3, 4 e 5. Como 
curiosidade, ap6s a implementa9a"o do 
comando, de um passeio pela memoria 
do micro, imprimindo, com caracteres, 
do endereco ao 65535. ■ 



Este projeto vem sendo desenvolvido pela 
equipe do CPD de MICRO SISTEMAS, sob a 
coordenagSo de Renato Degiovani. 



M 



PROCURE QUEM 
REALMENTE ENTENDE. 



M 



J^MICROMAQ 



R. Sete de Setembro, 92 - Lj. 106 
Tel.: 222-6088 - Rio de Janeiro 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publica^oes 
Especializadas, Cursos e Manutengao de Equipamentos. 



INFORMACOES UTEIS PARA QUEM TEM, OU NAO TEM O MICRO. 






A Filcres f az de sua empresa o seu Show Room 

microcomputadores 



! Especialistas em 



levam ate voce toda sua estrutura de Marketing. Conheca 
os CP300 e CP500 aliados ao alto desempenho da Impressora 
P500 e na configuracao exata do seu problema. 



A Filcres oferece aos seus usuarios assistencia tecnica 




autorizada Prologica 




, completa biblioteca 



de software, diversificada linha de suprimentos, alem de 



treinamento gratuito de operacao i 



Basic 






e linguagem 



Venha ate aqui, ou ligue que iremos ate voce! 



filcres 

FILCRES ELETRONICA ATACADISTA LTDA. 
Rua Aurora. 165 - CEP 01 209 - Sao Paulo - SP 
Tels.: 223-1446-220-5794 - 222-3458 
PBX: 223 7388 




LEVE NOSSO SHOW ROOM P/ SUA CASA! 



Os usuarios tern o direito de criar comandos especiais para chamar suas rot /nasi 
E por que nao? Se o micro 4 TRS-80 mod. Ill, o primeiro passo ja esta dado... 



Pseudo comandos que 
chamam rotinas auxiliares 









^•»*»^ 
..«*** 



CI 6 vis Almeida Menezes 
Rubens Almeida Menezes 



Neste artigo nos propomos a 
demonstrar como implemen- 
tar rotinas auxiliares nos mi- 
cros da linha TRS-80 modelo 
III, chamando-as por intermddio de no- 
vos pseudo comandos BASIC. Impossi- 
vel? Nem tanto, basta aproveitarmos o 
vetor da rotina de erro do interpretador 
BASIC, desviando-a para as nossas roti- 
nas. Mas para isso devemos tomar todas 
as cautelas possiveis. 

Na rotina para a qual sera 1 desviada a 
rotina de erro, selecionaremos as cha- 
madas que contem codigo correspon- 
dente a erro de sintaxe, devolvendo ao 
interpretador aquelas que nao contem 
esse codigo. Esse desvio somente pode 
ser realizado em razao da existencia de 
um vetor na RAM que, ao trabalharmos 
em BASIC residente, contem determi- 
nado valor que e alterado quando utili- 
zamos BASIC Disco. 

41A6H, VETOR 
DA ROTINA DE ERRO 

Quando o interpretador encontra um 
erro de sintaxe, imediatamente carrega o 
conteudo do endereco 409 AH (16538) 
com 02. A rotina de erro faz um JUMP 
(correspondente ao GOSUB do BASIC; 
para o endereco 41A6H (16806); depen- 
dendo dos valores encontrados, retorna 



ao interpretador BASIC ou vai para a ro- 
tina de erro do BASIC Disco. 

Na realidade, o vetor 41A6H abrange 
tres enderecos: 41A6H, 41A7H e 41A8H. 
Para verificarmos o conteudo dos mes- 
mos, podemos proceder de varias manei- 
ras diferentes, dependendo das caracte- 
n'sticas do equipamento. 

Para micros sem disk drive o conteu- 
do do vetor serd: 
41A6H = C9 
41A7H-00 
41A8H - FF (ou qualquer outro valor) 

Nesta categoria temos ainda dois ca- 
sos: micros com monitor residente (por 
exemplo, o CP-500) e micros sem moni- 
tor residente (por exemplo, o JR Sysda- 
ta). No primeiro caso, o usuario deve en- 
trar no monitor e digitar D 41A6, 03 
ENTER;atelamostrara:41A6 C9 00 00. 

No segundo caso, devemos passar o 
conteudo do monitor de hexa para deci- 
mal: 

41A6H - 16.806 
41A7H - 16.807 
41A8H = 16.808 

e digitar PRINT PEEK (16.806), PEEK 
(16.807), PEEK (16.808) ENTER. A te- 
la mostrara: 201 00 255; convertendo 
para hexadecimal, teremos: 
201=C9H 
= OH 
255 - FFH 



Agora vejamos o caso dos micros 
com disk drive. Se o usuario estiver em 
BASIC residente, os valores encontrados 
nos vetores serao os mesmos. Se estiver 
em BASIC Disco, encontrara\ depen- 
dendo do sistema operacional, valores 
diversos. No DOS 500 ou TRSDOS tere- 
mos: 





ENDERECO 


COM t 1 111)0 


HEXA 




DECIMAL 


HEXA DECIMAL 


*1 A6H 


o ii 


168»6 


C3 ou 195 


* 1 A7H 


o || 


168#7 


7 B o u 1 2 J 


* ! A H II 


O II 


168*8 


A? ou 66 



OPERANDO A ROTINA DE ERRO 

Ao encontrar no vetor 41A6H o va- 
lor C9H (que corresponde ao RETURN 
do BASIC), a rotina de erro retorna ao 
interpretador BASIC. Se encontrar por 
exemplo, C3 7B42 (o C3H equivale ao 
GOTO do BASIC), fara" um JUMP para 
o endereco 427BH, onde continuara' 
operando, o que tambe'm significa que 
o micro esta em BASIC Disco. 

Para interceptarmos a rotina de erro, 
devemos seguir os seguintes passos: 
. guardar em um buffer os valores encon- 
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trados em 41A6H, 41A7H e 41A8H pa- 
ra uso em nossa rotina; 
. alternarosconteudosde41A6H,41A7H 
e 41A8H para valores correspondentes 
ao endereco onde esta a nossa rotina, a 
qual inicia em 7000H : 



COHTEUDO 


VALOR ORICINAL 


NOVO 




EM BASIC-DISCO 


COHTEUDO 


♦ IACH 


C3H 


C3H 


41A7H 


7BH 


• •H 


*1A8H 


»2H 


7»H 



A primeira parte da rotina Assembler 
(listagem 1) realiza automaticamente es- 
ses dois passos (linhas 360 a 500). Ja a 
segunda parte, que recebe o desvio da 
rotina de erro, encarrega-se de verificar 
certas condicdes. Vejamos: 

1 — se o codigo de erro e* 02, a rotina 
continua; se nao for, retorna para o in- 
terpretador ou vai para o BASIC Disco; 

2 - sendo o codigo 02, verifica se a 
string apontada por HL 6 igual a um dos 
novos pseudo comandos BASIC que car- 
regamos em BC ; 

3 — se HL for igual a BC, a rotina apon- 
tada 6 executada; 

4 - se HL nao for igual a nenhum dos 
valores apontados por BC, a rotina re- 
torna para o interpretador ou vai para o 
BASIC Disco. 



CRIANDO NOVOS 
PSEUDO COMANDOS BASIC 

Para a segunda parte da rotina Assem- 
bler (linhas 520 a 1030), precisamosde- 
finir qual ou quais novos pseudo coman- 
dos BASIC vamos criar e o que essas ins- 
trucoes deverao executar. Vamos a tres 
exemplos: 

. Exemplo 1 - Criamos o comando 
SOM e uma rotina que gera som. Toda 
vez que entramos com SOM em um pro- 
grama BASIC ou em comando direto, a 
rotina SOM sera executada. 

. Exemplo 2 — Criamos o comando 
CLASS e uma rotina Assembler que rea- 
liza a classifica9ao de strings. Ao entrar- 
mos com CLASS em um programa BA- 
SIC apropriado, a classificacao das 
strings sera executada com extrema ra- 
pidez. 

. Exemplo 3 - Criamos o comando 
GRSYS e uma rotina Assembler para 
gravar programas em SYSTEM. Ao ne- 
cessitarmos utilizar este programa bastara 
entrar com GRSYS. 

Portanto, podemos chamar qualquer 
programa em linguagem de maquina que 
esteja na memoria por um novo coman- 
do criado por nos. 

Os novos comandos, no entanto, nao 



podem conter nenhuma das palavras re- 
servadas do BASIC, assim como palavras 
que possam dar significado de comando. 
Assim, COR, LISTA, CERTO, ERRA- 
DO, LETRA, REMEDIO etc. nao po- 
dem ser utilizadas. 

Para ter certeza de que o seu novo 
comando nao contem nenhuma das pa- 
lavras reservadas, entre no micro com 
uma linha, dando como nome da varia- 
vel o tern a que voce quer usar. Por 
exemplo: 

10ERRADO=100ou 
10 CERTO = 50 ou 
10 VALOR =100 

Entre com o comando RUN. Se na tela 
aparecer uma mensagem de erro, e por- 
que voce esta usando uma palavra reser- 
vada do BASIC. Caso contrario, o novo 
comando sera valido. 

ROTINAS EXEMPLO 

As rotinas criadas para demonstracjio 
pratica sao bem simples e rapidas, facili- 
tando assim o entendimento de todo o 
processo. 

Nao ha quern nao fique extasiado ao 
ver rodar o programa Attack Force (a 
maioria dos usuarios deve conhecer) e 
sua fantastica introduc^o: 
NOS CONTROLAMOS SEU MICRO - 
CONTROLAMOS O VERTICAL etc.,« 




FOLHA DE PAGAIYIEIMTO. 



A Nasajon Sistemas, uma empresa 
especial izada no desenvolvimento de 
programas, esta lanpando no merca- 
do, em carater exclusivo, o mais com- 
pleto sistema de Folha de Pagamento 
para microcomputadores dos tipos 
CP 500, Digitus, Naja ou qualquer 
outro da linha TRS 80. 
O programa emite os seguintes rela- 
t6rios: 



Outros programas 
a disposipao 



Preco 
Cr$ 



292.000,00 

^rr lassg: 

Crediario \ 438.000,00 

Contabilidade 

-^ndSr^f3To8.84 



• Relacao de Empregados. 

• Quadro de Horarios. 

• Folha de Pagamento. 

• Resumo da Folha. 

• Relacao de FGTS. 

• Guia de FGTS. 

• Relacao de IR. 

• Guia de IAPAS. 

• Relacao de Bancos. 

• Recibo de Pagamento e outros. 

Preco Especial de lancamento: 

Cr$ 584.000,00 

Incluindo diskette, manual completo, ta- 
belas de planilhas, assistencia tecnica total 
e garantia de um ano. 




'••y-W-HI-iW- 1 !!,. 1 !!.!-,.!.!.!,, 

^- ■■■■■•■■■■■■->■■■■■■•: -■--■■-■■■■■• ■■■■■■■ 




1 - 

zivn r* • -<■• ■ 
•'.•r.iOHf.'^ 
CM.CMJ) r* ' --"•. 



^nci/ojofi 

L 4 ATtemor * 



Av. Rio Branco, 45grupo 1311 
Tel.: (021) 263-1241 e 233-0615 
Rio de Janeiro - Cep 20090. 



Pregos 



Voce encontra esse e outros programas em nossos revendedores credenciados: 






2 c> 

li 
I" 



Rio de Janeiro: Casa Garson: 252-9191; 325-6458; 541-2345 e 252-2050 r.179 - Eldorado Computadores: 227-0791 - Bits e Bytes: 322-1960 - 
Salvador: Officina: 2486666 r. 268 - Sysdata: 242-9394 - Sao Paulo: Microprocess: 64-0468 - Jundiaf-SP: Projun 
Sistemas: 4346640. 



PSEUDO COMANDOS QUE CHAMAM ROTINAS AUXILIARES 



etc. As telas aparecem e desaparecem 
milagrosamente na horizontal, na verti- 
cal, alem de outros tantos efeitos que 
sao produzidos. 

Demonstraremos o principio destes 
efeitos por interme'dio de tres sub-roti- 
nas, e para tal vamos criar tres novos 
pseudo comandos BASIC: 

. TELA — terd a finalidade de guardar, 
em urn buffer, uma tela completa de vi- 
deo no momento em que for chamada. 

. CERTA — mostrara a tela que foi guar- 
dada pelo pseudo comando TELA. 

. VIRADA - mostrara a tela totalmen- 
te invertida. 

A sub-rotina TELA localiza-se, em nossa 
rotina* Assembler, entre as linhas 1040 e 
1 100; CERTA entre 1 1 10 e 1 170 e VI- 
RADA entre 1 180 e 1360. 

Apos ter executado uma das sub-roti- 
nas apontadas por um dos novos pseudo 
comandos BASIC, a quarta parte do 
programa em Assembler se encarrega de 
zerar o indicador do codigo de erro e re- 
tornar ao interpretador BASIC ou BA- 
SIC Disco. 

Quern tiver um editor Assembler, 
basta apenas entrar com as linhas da lis- 
tagem 1 , observando que : 




Listagem 1 - ROTERR 



41A6 
409A 
40E6 

101E 

25A1 
3C00 
FCOO 
FFFF 
F0OO 
F000 21A641 

F003 E5 
F004 1159F0 
F007 010300 
F00A EDB0 

F00C El 
FOOD 36C3 
FOOF 23 
F010 1119F0 
F013 73 
F014 23 
F015 72 
F016 C9 
F017 0000 
F019 F5 
F01A C5 
F01B D5 
F01C E5 
F01D 7B 

F01E FE02 

F020 2033 



F022 


2AE640 


F025 


7E 


F026 


R7 


F027 


2004 


F029 


23 


F02A 


23 


F02B 


23 


F02C 


23 


F02D 


7 


F02E 


E5 


F02F 


01A4F0 


F032 


1604 


F034 


5A 


F035 


CDA125 


F038 


2822 


F03A 


01A8F0 


F03D 


El 


F03E 


E5 


F03F 


1405 


F041 


5A 


F042 


CDA125 


F045 


2823 


F047 


01ADFO 


F04A 


El 


F04B 


E5 


F04C 


1606 


F04E 


5A 


F04F 


CDA12S 


F052 


2824 


F054 


El 


F055 


El 


F056 


01 


F057 


CI 


F058 


Fl 


F059 


52 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 



;CLOVIS RUBENS CLOVIS RUBENS CLOVIS RUBENS CLOVIS RUBENS 

•>>>>>>>>>>>>>>> LISTAGEM 1 <<<<<<<<<<<<<<<< 

;>>>>>>>>>)>>>>> ROTERR <<<<<<<<<<<<<<<<< 
,«*•*»«««**»»« PROGRAHA DEMONSTRATIVO IHHHHHHIIHHMHHHHtNft* 
I •«*••*•««*««« DA UTILIZACAO DA ROTINA •••*«»••••*•«•**•» 
.».....»»..«.» DE ERRO DE SINTAXE «»»»»«««#«««•«»»»« 



;AUTORES: CLOVIS E RUBENS ALMEIDA MENEZES 
;DATA: 23/FEV/1984 

; PARA MICROS COMPATIVEIS COM TRS-80 MODELO III 
,COM 48K DE RAM << PROTEGER COM 61439 >> 

JCLOVISRUBENSCLOVISRUBENSCLOVISRUBENSCLOVISRUBENSCLOVISRU 



VETERR 

CODERR 

ULTBYT 

PROXIN 

CPSTRG 

VIDEO 

GUARDA 

FIMBUF 

PREROT 



PROXCO 
COMPAR 



EOU 
tan 
EOU 
EOU 
EQU 
EOU 
EQU 
ORG 
LP 

PUSH 
LD 
LD 
LDIR 

POP 

LD 

INC 

LO 
LB 

1N( 

LD 

RET 

DEFU 

PUSH 

PUSH 

PUSH 

PUSH 

LD 

CP 



I D 
LO 

OH 

M 

INC 
INC 

INi 
INC 

RST 

PUSH 

LO 

I D 

LO 

CALL 
JR 

LO 

POP 

PUSH 

LD 

LD 

CALL 

JR 

LD 
POP 

PUSH 

LD 

LD 

CALL 

JR 

POP 

POP 
POP 
POP 
POP 
DEFM 



41A6H 

409AH 

40E6H 

1D1EH 

25A1H 

3C00H 

OFCOOH 

OFFFFH 

OFOOOH 

HL, VETERR 



;VETOR ROTINA ERRO 
;GUARDA CODIGO DE ERRO 
;PONTEIRO ULTIMO COMANDO BASIC 
sRETORNO PARA INTERPRETADOR 
jCOMPARA HL E BC 
;INICIO AREA DE VIDEO 
jINICIO DO BUFFER 
;FIM DO BUFFER 



HL 

DE.RETROM 
BC.0003H 



HL 

(HD.0C3H 

HL 

DE,INICIO 

(HL),E 

HL 

( HL ) , 

0000 

AF 

BC 

OF 
HL 
A,E 

02 

NZ.FIMi 

HL, (ULTBYT) 

A,<HL) 

A 

NZ, PROXCO 

HL 
HL 

HL 

HL 

10H 

HL 

BC,PSDCM1 

0,04 

E,D 

CPSTRG 
Z.TELA 

BC,PSDCM2 

HL 

HI 

D,5 

E,D 

CPSTRG 

Z, CERTA 

BC.PSDCM3 

HL 

HL 

0,6 

E,D 

CPSTRG 

Z, VIRADA 

HL 

HI 

DE 

BC 
AF 
'RET ' 



;CARREGA COM END. DO VETOR 

S DE ERRO 

;SALVA REGISTRO 

SENDER. DE TRANSFERENCI A 

,CARREGA COM 3 

-TRANSF.CONTEUDO DE "HL" 

j PAR A "DE" 

jRECUPERA REGISTRO 

s VALOR A SER MUDADO 

jINCREMENTA 

jCARREGA COM END.P/JUMP 

fTRANSFERE VALOR DE "E" 

jINCREMENTA 

;TRANSFERE VALOR DE "D" 

;VOLTA PARA BASIC 

sSALVA 

;TOD0S 

I OS 

jREGISTROS 

;VERIFICA SE E ' ERRO 

,DE SINTAXE 

;SE FOR 2 E' ERRO 

»DE SINTAXE 

;SE NAO FOR RETORNA 

(PARA BASIC 

fPEGA PROXIMO CARACTER 

:00 PROGRAMA BASIC 

jVERIFICA SE E * ZERO 

;SE NAO FOR PASSA PARA 

;PROXIMA INSTRUCAO 

fSENDO ZERO PULA 

;ENDERECO DA PROXIMA 

;LINHA E TAMBEM 

fNUMERO DA CORRENTE 

;LINHA 

;PROCURA PROXIMO CARACTER 

;SALVA REGISTRO 

;CARREGA COM END. DA 

; STRING DO NOVO COMANDO 

t"DE" CONTERA' TAMANHO 

t DA STRING 

sCOMPARA "HL" E "BC" 

;SE FOR IGUAL VAI PARA 

( A ROTINA "TELA" 

; SE NAO FOR IGUAL 

;RECUPERA REGISTRO 

;SALVA NOVAMENTE 

;REPETE INST.ANTERIORES 

jPARA SEGUNDO NOVO 

» COMANDO 

;SE FOR IGUAL VAI PARA 

;A ROTINA "CERTA" 

;SE NAO FOR 

;REPETE 

;TUDO 

-NOVAMENTE 



,SE FOR VAI PARA 

;A ROTINA "VIRADA" 

S SE NAO FOR RECUPERA 

;TODOS OS REGISTROS 

;INICIAIS QUANDO 

;D0 DESVIO 

I DA 

-ROTINA DE ERRO 

iE RETORNA AO BASIC 



MICRO SISTEMAS, agosto/84 



F05C 


E5 


01040 


TELA 


PUSH 


HL 


;SALVA REGISTRO 


F05D 


21003C 


01050 




LD 


HL, VIDEO 


jCARREGA C/END.INIC. VIDEO 


F060 


1100FC 


01060 




1 I) 


DE, GUAR DA 


;END.INICIAL DO BUFFER 


F063 


010004 


01070 




LD, 


BC.1024D 


;OUANT. BYTES P/TRANSFERIR 


F066 


EDBO 


01080 
01090 




LOIR 




jTRANSFERE CONTEUDO 
f DE "HL" PARA "DE" 


F068 


182A 


01100 




JR 


FIM2 


•VAI P/FIM DA ROTINA 


F06A 


E5 


oiiio 


CERTA 


PUSH 


HL 


;SALVA REGISTRO 


F06B 


2100FC 


01120 




LD 


HL.GUARDA 


jEND.INICIAL DO BUFFER 


F06E 


11003C 


01130 




LD 


DE, VIDEO 


sENDERECO INICIAL VIDEO 


F071 


010004 


01140 




LD 


BC.1024D 


pQUANT. BYTES A TRANSFERIR 


F074 


EDBO 


01150 
01160 




LDIR 




,TRANSFERE CONTEUDO 
;DE "HL" PARA "DE" 


F076 


1B1C 


01170 




JR 


FIM2 


;VAI P/FIM DA ROTINA 


F078 


E5 


01180 


VIRADA 


PUSH 


HL 


; SALVA REGISTRO 


F079 


21FFFF 


01190 
01200 




LD 


HL, FIMBUF 


;CARREGA COM ULTIMO 
;ENDERECO DO BUFFER 


F07C 


11003C 


01210 




LD 


DE, VIDEO 


,ENDER. INICIAL DO VIDEO 


F07F 


010004 


01220 




LO 


BC.1024D 


;OUANT. BYTES A TRANSFERIR 


F082 


7E 


01230 
01240 


LOOP 


LD 


A , < HL ) 


;CARREGA "A" COM CONTEUDO 
;APONTADO POR "HL" 


F083 




01250 
01260 




LO 


<DE>,A 


; PASS A CONTEUDO DE "A" 
S PARA APONTADO POR "DE" 


F084 


13 


01270 




INC 


OF 


jINCREMENTA "DE" 


F085 


2fl 


01280 




DEC 


HL 


jDECREMENTA "HL" 


F086 


OB 


01290 




DEC 


8C 


jDECREMENTA "BC" 


F087 


3E00 


01300 




LD 


A, 00 


;CARREGA "A" COM ZERO 


F0B9 


A9 


01310 




*0R 


c 


;CERIFICA SE "C" E' ZERO 


FOBA 


20F6 


01320 




M 


NZ,LOOP 


;SE NAO FOR RETORNA 


F08C 


3E00 


01330 




LD 


A, 00 


;MESMA COISA 


F08E 


A8 


01340 




a Ok 


B 


;COM REGISTRO "B" 


F08F 


20F1 


01350 




M 


NZ.LOOP 


;SE NAO FOR ZERO RETORNA 


F091 


C394F0 


01360 
01370 




jp 


FIM2 


,SE "BC" FOR ZERO VAI 
,PARA ROTINA FIM2 


F094 


El 


01380 


FIM2 


POP 


HL 


;RECUPERA 


F095 


Dl 


01390 




POP 


OK 


f 


F096 


Di 


01400 




POP 


DE 


,TODOS 


F097 


Dl 


01410 




POP 


DE 


1 


F098 


CI 


01420 




POP 


hc: 


;0S 


F099 


Fl 


01430 




POP 


Al 


jREGISTROS 


F09A 


AF 


01440 




xos 


A 


;ZERA ACUMULADOR 


F09B 


329A40 


01450 
01460 




LD 


(CODERR) ,A 


;COLOCA ZERO COMO 
jCODIGO DE ERRO 


F09E 


2fi 


01470 




DEC 


HL 


; DECREMENT A "HL" 


F09F 


0/ 


01480 




RST 


10H 


»PEGA PROXIMO CARACTER 


FOAO 


Cl 


01490 




POP 


BC 


jRECUPERA "BC" 


FOA1 


C31E1D 


01500 
01510 




JP 


PROXIN 


;RETORNA P/INTERPRETADOR 
;BASIC 


F0A4 


54 


01520 


PSDCMi 


DEFM 


'TELA ' 


;PRIMEIRO NOVO COMANDO 


F0A8 


43 


01530 


PSDCM2 


DEFM 


'CERTA ' 


;SEGUNDO NOVO COMANDO 


FOAD 


56 


01540 


PSDCM3 


DEFM 


'VIRADA ' 


sTERCEIRO NOVO COMANDO 


FOOO 




01550 




END 


PREROT 


,FIM INICIO 


OOOOO TOTAL 


ERRORS 










30334 TEXT 


AREA BYTES LEFT 






AVANTE F029 


00670 










CERT A F06A 


OHIO 


00870 








CODERR 409A 


00280 


01450 








COMPAR F02F 


00740 










CPSTRG 25A1 


00310 


00780 


00860 00940 




FIM1 


F055 


00990 


00600 








FIH2 


F094 


01380 


01100 


01170 013 




FIMBUF FFFF 


00340 


01190 








OUARDA FCOO 


00330 


01060 


01120 






INICIO F019 


00520 


00460 








LOOP 


F082 


01230 


01320 


01350 






PEQCAR F022 


00620 










PREROT FOOO 


00360 


01550 








PROXCO F02D 


Q0720 


00650 








PROXIN 1D1E 


00300 


01500 








PSDCM1 F0A4 


01520 


00740 








P3DCM2 F0A8 


01530 


00810 








PSDCM3 FOAD 


01540 


00890 








RETROH F059 


01030 


00390 








SINERR F01D 


00560 










TELA 


F05C 


01040 


00790 








ULTBYT 40E6 


00290 


00620 








VETERR 41A6 


00270 


00360 








VIDEO 3C00 


00320 


01050 


01130 012 




VIRAOA F078 


01180 


00950 









1 - A rotina e para micros com 48 Kb. 

2 - Para micros com 16 Kb, deve-se tro- 
car as seguintes linhas: 

210; com 16 Kb de RAM proteger com 
((28671)) 

310; GUARDA EQU 7C00H; initio do 
buffer 

320; FIMBUP EQU 7FFFH ;fim do buf- 
fer 
330; ORG7000H; 

3 — Em micros com cassete, ap6s ter en- 
trado com todas as linhas, grave o pro- 
grama objeto com o nome ROTERR ou 
outro que melhor lhe convier. Para uso 
posterior, grave tambe'm o programa 
fonte. 

4 - Em micros com disk drive, grave o 
programa objeto com ROTERR/CMD 
ou outro nome qualquer; grave tambem 
o programa objeto com ROTERR/SOR 
ou outro nome e extensao. 

Agora vejamos como utilizar o pro- 
grama ROTERR, considerando, em pri- 
meiro lugar, a versao cassete. Ao ligar o 
micro, a pergunta inicial ? MEM respon- 
da com 28671 para 16Kb de RAM, ou 
61439 para 48 Kb de RAM. Carregue o 
programa com o comando SYSTEM, e 
quando aparecer no vi'deo a mensagem 
* ?, aperte a tecla BREAK para sair do 
SYSTEM. Em seguida. digite: POKE 
16526,00 : POKE 16527 ,240:X-USR(X) 
ENTER (para micros com 48 Kb) ou 
POKE 16526,00 : POKE 16527,1 12:X 
= USR (X) ENTER (para micros com 
16Kb). 

Para quern utiliza BASIC Disco, en- 
tre no DOS com LOAD ROTERR/CMD 
e logo depois passe para BASIC Disco. 
A pergunta ?MEM responda com 61439 
e digite DEFUSRO- & HFOOO X ■- USRO 
(X) ENTER. 

Pronto. Tanto num como no outro 
caso, voce podera usar a vontade os tres 
novos pseudo comandos BASIC (TELA, 
CERTA e VIRADA) em comando dire- 
to ou em um programa BASIC. 

VERSAO BASIC DO 
PROGRAMA ROTERR 

A v( rsao para o BASIC podera ser 
feita ccm o auxflio da listagem 2 (equi- 
pamentos com 16 Kb) ou da listagem 3 aa 



Emsetembra__ — 



• Editores de Texto: Saiba o que um bom processador pode fazer 
por voce. Os principals recursos e comandos; os precos de mercado 
e, de quebra, um editor para a linha Sinclair. 

• Tecnicas de Programacao: VocS vai aprender o que sa"o e como 
funcionam as sub-rotinas em BASIC, e como implementar co-rotinas 
em Assembler 8080 e 2-80. 

• E mais: com o 'Pokodes', veja como entrar com caracteres 
grificos diretamente do teclado de seu TRS-80 e compatfveis. 



PSEUDO COMANDOS QUE CHAMAM ROTINAS AUXILIARES 



Listagem 2 



111 

IS 


'• 


so 


■» 


29 


'» 


3a 


' m 


39 


'» 


4 


*• 


49 


'- 


50 


'» 


59 


'« 



LISTAGEM 2 
PROGRAMA DEMONSTRATIVO 
OE UTILIZACAO DA ROTINA DE ERRO DE SINTAXE 
DO INTERPRETADOR BASIC PARA CRIAR NOVOS 
PSEUDOS COMANDOS BASIC 
PARA MICRO COM 16K DE RAM 
MONTADO POR CLOVIS E RUBENS ALMEIDA MENEZES 
SAO PAULO 22/MARC0/1984 

'» 

60 '••««»««««.*»«»««««. •.»■.«.•.««...««««..«.««. «»...•■....•.«■..«. 
65 ' 

70 CLS « T»0 

75 PRINT3150, ">>>>>>> R T E R R <<<<<<<" 

90 PRINT3206, "NOVOS PSEUDOS COMANDOS BASIC A DISPOSICAO" 
85 PRINT3334,"TELA - GUARDA NA MEMORIA UMA TELA DO VIDEO" 
90 PRINT3398,"CERTA » MOSTRA A TELA INICIAL NA POSICAO NORMAL' 
95 PRINT3462,"VIRADA = MOSTRA A TELA INICIAL INVERTIDA" 
100 PRINTa59D,"APERTE < ENTER > PARA CONTINUAR" 
105 AS-INKEYS I IF Af«"",105 ELSE IF ASOCHRSC 13) , 105 
110 CLS I PRINT3130,"VERIFICAND0 CONTEUDOS DE DATA" 
NEXT 
N=0 J FOR X-i TO 157 z READ R 
D=D+6 « N-N+R : IF D>58,D-0 



L-L+l 



J PRINT3130,"ERR0 NOS VALORES DE DATA" : END 
PRINT3130,"VERIFI8UE 8UANTIDADE DE DATA" I E 



115 FOR X»l TO 500 

120 CLS J L-0 J D-0 

125 PRINT3L«64+D,Rj 

ELSE NEXT 

130 IF N<>15632,CLS 

135 READ R 

140 IF R0999.CLS : 

NO 

145 FOR X-l TO 27 : READ H « Z-Z+H I NEXT 

150 IF Z01444.CLS » PRINT3130,"SEGUND0 GRUPO DE DATA C/ERRO' 

END 

155 CLS 

160 PR INT3140, "VALORES DE DATA APARENTEMENTE CORRETOS" 

165 FOR X»l TO 1500 : NEXT 

170 CLS « PRINT3208,"DESEJA GRAVAR PROGRAMA ? ( S/N > " 

175 D*«INKEY* « IF DS-"",175 

180 IF DS-"S~,370 ELSE IF DS-"N",390 ELSE 175 

185 DATA 245,197,213,229,123.254,2,32,51,42 

190 DATA 230,64,126,183,32,4,35,35,35,35 

195 DATA 215,229,1,164,112,22,4,90,205,161 

200 DATA 37,40,34,1,168,112,225,229,22,5 

205 DATA 90,205,161,37,40,35,1,173,112,225 



210 DATA 229,22,6,90,205,161,37,40,36,225 
, 215 DATA 225,209,193,241,82,69,84,229,33,0 
220 DATA 60,17,0,124,1,0,4,237,176,24 
225 DATA 42,229,33,0,124,17,0,60,1,0 
230 DATA 4,237,176,24,28,229,33,255,127,17 
235 DATA 0,60,1,0,4,126,18,19,43,11 
240 DATA 62,0,169,32,246,62,0,168,32,241 
245 DATA 195,148,112,225,209,209,209,193,241,175 
250 DATA 50,154,64,43,215,193,195,30,29,84 
255 DATA 69,76,65,67,69,82,84,65,86,73 
260 DATA 82,65,68,65,195,25,112,999 
265 A-28697 I J-28761 I K-16B06 
270 CLS t D«0 : P-0 i L-0 « N-0 
275 FOR X«0 TO 153 
280 READ P > POKE A + X,P 
285 PRINT3L»64+D,P» « D-D+6 i N-N+P i IF D)58,D=0 : L=L+1 t NEXT 

ELSE NEXT 
290 FOR X-0 TO 2 

295 READ P I POKE K+X,P : PRINT P," ", 
300 NEXT 
305 FOR X-0 TO 2 
310 POKE J+X,FZ(X) 
315 NEXT 

320 CLS I PRINT3130,"TERMINAD0 >> BOA SORTE (< " 
325 READ B x FOR X-0 TO 26 I READ P » POKE 15554+X.P s NEXT 
330 FOR X-l TO 500 : NEXT 
335 TELA 

340 CLS : VIRAOA I FOR X»l TO 400 I NEXT 
345 CLS l CERTA I FOR X-l TO 400 I NEXT 
350 GOTO 340 

355 DATA 67,32,76,32,79,32,86,32,73,32 
360 DATA 83,32,32,69,32,32,82,32,85,32 
365 DATA 66,32,69,32,78,32,83 

370 CLS « PRINT3130, "PREPARE GRAVADOR E APERTE ENTER" 
375 Ai=INKEYS t IF A*="",375 ELSE IF A*OCHR%< 13) , 375 
380 CSAVE"R" 

385 CLS I PRINT3130,"GRAVACA0 ENCERRADA" I FOR X-l TO 500 I NEXT 
390 CLS I PRINT3194,"INICIAND0 POKE NA MEMORIA" 
395 FOR X-l TO 500 t NEXT 
400 FOR X=0 TO 2 
405 FX(X)=PEEK<16806+X> 
410 NEXT 
415 RESTORE t GOTO 265 



(para micros com 48 Kb). Deve-se, no 
entanto, tomar cuidado quanto aos valo- 
res de DATA (um contador informara se 
houver erro na digitacao). 

Tendo entrado com o programa,aper- 
te RUN; se todos os valores de DATA 
estiverem corretos, o programa pergun- 
tara se voce o deseja gravar. Apos te-lo 



salvado, o programa continuara sua exe- 
CU950 e os efeitos serao demonstrados 
na tela do micro. Se desejar, entre com 
o comando NEW e digite outro progra- 
ma utilizando os novos pseudo coman- 
dos. Observa?ao: nunca de RUN duas 
vezes seguidas no programa ROTERR, 
pois os endere^s dos vetores ficarao 











Listagem 3 






i 'a*********************************************************** 




2 '* * 


3 '* LISTAGEM 3 * 


4 '* ALTERACOES DA LISTAGEM 2 PARA MICROS COM 48K DE RAM * 


5 '« MONTADO POR CLOVIS E RUBENS ALMEIDA MENEZES * 


6 'WW********************************************************** 


7 '* * 


8 '* ALTERE NO PROGRAMA AS LINHAS SEGUINTES: * 


9 '* PARA MICRO COM 48K DE RAM * 


130 IF NO16805 p CLS : PRINT3130, "ERRO NOS VALORES DE DATA" :END 


195 DATA 215,229,1,164,240,22,4,90,205,161 


200 DATA 37,40,34,1,168,240,225,229,22,5 


205 DATA 90,205,161,37,40,35,1,173,240,225 


215 DATA 225,209,193,241,195,123,66,229,33,0 


220 DATA 60,17,0,252,1,0,4,237,176,24 


225 DATA 42,229,33,0,252,17,0,60,1,0 


230 DATA 4,237,176,24,28,229,33,255,255,17 


245 DATA 195,148,240,225,209,209,209,193,241,175 


260 DATA 82,65,68,65,195,25,240,999 


265 A= -4071 : J= -4007 : K=16806 



trocados, e qualquer palavra que conte- 
nha erro fara com que o micro fique em 
looping continue 

As rotinas criadas para o programa 
ROTERR sao bastante simples, pois a 
nossa finalidade principal foi demons- 
trar como se pode criar pseudo coman- 
dos BASIC. aproveitamento e aper- 
feicoamento dos principios explanados 
ficarao por conta da imaginacao do leitor. 

BIBLIOGRAFIA 

1 - HOWE, H., TRS-80 Assembly Lan- 
guage 

2 - FARVOUR, J., Microsoft BASIC 
Decoded & Other Mysteries 

3 - COMANDER, J., 80 Micro Compu- 
ting (7/80) 

4 - LEVENTHAL, L. R., Z80 Assem- 
bly Language Programing ■ 



CI 6 vis Almeida Menezes 4 economists e ad- 
ministrador e Rubens Almeida Menezes 6 pro- 
gramador. Ambos audotidatas, deram os pri- 
meiros passos em computacao com um PC- 
1211 em marco de 1983 e atualmente pos- 
suem tamb4m um JR Sysdata e um CP-500 
com dois disk drives. 
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UM MICRO ACIMA 
DE QUALQUER SUSPEITA 



O Nexus 1600 conquistou a pre- 
ferencia dos usudrios brasileiros 
de microcomput adores compati- 
veis com IBM-PC. Tambem ndo 
era para menos. Afinal quern 
analisa a linha de micros de 
16 bits sabe que a qualidade do 
produto, a garantia de con- 
tinuidade de producdo e de 
acompanbamento dos lanca- 
mentos da IBM no exterior, 
sdo fundamentals para o su- 
cesso, a medio e longo prazo, 
desta nova linha de equipa- 
mentos. E quern estd no mer- 
cado de informdtica sabe que 
somente o Nexus 1600 pode ofe- 
recer esta garantia. Operando iso- 
ladamente, funcionando como siste- 
ma multiusudrio, com ate 16 termi- 
nais ou emulando um terminal do 





computador de grande porte, o Ne- 
xus 1600 to "IBM-PC COMPATI- 
VEL" de melhor performance. 
Alem disso, o Nexus 1600 e o unico 
micro "IBM-PC COMPATIVEL" 
aprovado pela SEI. Is to significa 
que somente o Nexus 1600 e pro- 
duzido com pegas e componen- 
tes adquiridos legalmente no 
exterior, diretamente do fa- 
bricante de chips, com contro- 
le de qualidade e garantia de 
de fomecimento. Forneci- 
mento hoje e amanha. 
A garantia e assisten- 
cia tecnica ao Nexus 1600 
e prestada diretamente 
pelo fabricante, em todo 
o pais. Com o Nexus 1600 seu 
micro ndo fica parado. 
A Compumicro e o fabricante garantem. 



Tudo o que voce precisa para implantar um NEXUS 1600 na 
sua empresa voce encontra na Compumicro. Levantamento de 
necessidades, especificagao de configuragoes, treinamento, for- 
necimento de Software nacional e importado, desenvolvimento 
e implantagao de sistemas, com a garantia da experiencia de 
quern mais entende de 16 bits no Brasil. 



VENDA — ALUGUEL — LEASING 



O maior revendedor NEXUS 
do Rio de Janeiro com os 
menores prepos do mercado 



carp4riciD 

INFORMATICA EMPRESARIAL LTDA. 

Rua Sets de Setembro, 99 - 1 19 andar 

Tel. PBX (021) 224-7007 

CEP 20050 - Rio de Janeiro - RJ 




rodada MS 



Voce tern um micro Sinclair, nao sabe telegrafia mas gostaria de aprender? 
Pois entao este programa foi feito "sob medida" para voce. Conheca o... 

Codigo Morse 
a moda Sinclair 



Jorge A. C. Bettencourt Soares 



Este programa educativo para micros da linha Sinclair 
traduz as letras do alfabeto em sequencias de bips so- 
noros, de acordo com o codigo Morse. A velocidade de 
traducao dos simbolos pode ser variada, per mi tin do 
que cada usuario selecione a velocidade que mais convier ao 
seu est agio de aprendizado. 

programa oferece tres modos de operacio distintos. No 
modo 1 e emitida uma seqiiencia de bips sonoros cor responden - 
tes a uma letra ou algarismo ao acaso. programa flea aguar- 
dando que seja acionada a tecla correspondente aos bips emiti- 
dos, quando entao emitira uma serie de dife rentes sinais, e as- 
sim sucessivamente. Cada vez que for digjtada uma tecla erra- 
da, o programa continuara emitindo a mesma seqiiencia de si- 
nais, so mudando quando for acionada a tecla correta. £ possi- 
vel bisbilhotar qual caiiter alfanumenco deu Origem a se'rie de 
bips produzida acionando a tecla. (ponto). Durante urn segundo 
ficara' visfvel no centro da tela do monitor a resposta correta a 
ser teclada. 

No modo 2 o usuario vai teclado letras ou algarismos que 
sao instant aneamente traduzidos em carac teres Morse, como 
se estivesse operando uma estacao telegraTica atrave"s de um te- 
clado. 

No modo 3 o programa emite, seqiiencialmente, um arquivo 
completo de caracteres Morse. Inicia traduzindo a slrie de alga- 
rismos de a 9, passa para o alfabeto completo de A a Z e vol- 
ta ao inicio, repetidamente. 

Para carregar o programa, digite inicialmente as instru9des 

1 a 8, e teste algum possivel erro grosseiro de digjtacSo rodan- 
do o programa (RUN). Liste em seguida, e veriflque que a pri- 
meira instni9lo (1 REM) mudou de aspecto, apresentando ago- 
ra a rotina em Assembler, a qual emitira' os bips sonoros. Se 
quiser deixar o programa mais elegante, apague as instrucSes 

2 a 8, e prossiga digit ando o resto do programa, da instruc3o 
10 ate" 3050. Note que, nas strings definidas nas instru96es 2 e 
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80, os dados for am agrupados em b locos de dois e cinco carac- 
teres, respectivamente, com a intencao de facilitar a digita9ao, 
evitando erros (aten9ao: os espacos devem ser respeitados). 

DE NUM EROS PARA BIPS 

A string B$, da instnifio 80, con tern o arquivo completo 
de simbolos Morse: o 1 representa o ponto e o 26o tra9p do 
eddigo Morse. Os zeros foram utilizados apenas como enchi- 
mento, padronizando todos os simbolos em grupos de cinco di- 
gitos. A string BS inicia com os di'gitos de a 9 e continua 
com o alfabeto completo, num total de 36 blocos de cinco df- 
gitos. Assim, exemplificando, o terceiro bloco (11222) corres- 
ponde ao carater Morse . . — que representa o algarismo 2 em 
alfanumerico. Sera traduzido em bips curtos e longos, os quais 
soarao mais ou menos como di-di-da-da-da. 

Logo no infcio do programa 6 solicitada a deflniclo da velo- 
cidade de tradu95o, representada por um numero compreendi- 
do entre 30 e 200. Experimente uma velocidade media, diga- 
mos, 60. Numeros maiores produzem velocidades mais lentas. 

O programa pedira\ em seguida, a definicSo do modo de ope- 
ra9§o — 1 , 2 e 3 — , conforme descrito no infcio do artigo. Uma 
sugestao: comece operando no modo 3, que funciona automa- 
ticamente, repetindo todo o arquivo de sons. Is to lhe permitira' 
ajustar tranqiiilamente o volume e sintonia do televisor (moni- 
tor de video) com bastante precisSo, obtendo bips bastante 
convincentes. Experimente ainda instalar um receptor de ridio 
perto do micro, sintonizando-o na faixa FM, ou, de preferencia, 
um ampliilcador externo, ligado a said a MIC do micro. 

Na linha 3000 tern inicio uma sub-rotina em BASIC que 
produz, na variavel k4, o mesmo efeito de RND. Esta sub-roti- 
na, divulgada no manual de programacao do PC 1211-RP da 
Sharp, foi introduzida na medida em que RND nao funcionava 
devido a interferencia produzida pela sub-rotina em linguagem 
de maquina para gerar os bips. A proposito, esta rotina dos bips 
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De PY1DWM 



Bern, aqui es tamos em mais urn QSO atraves da ROD AD A 
MS, trazendo as ultimas novidades. 
O excelente tiabalho que publicamos nesta ediijao 6 um 
programa para treinamento do codigo Morse para micros da 
linha Sinclair, de autoria de Jorge A. C. Bettencourt , o qual, por 
incri'vel que pareca, nao 6 radioamador - embora PY2AQO- 
Luiz ja se tenha comprometido a introduzir em suas veias 
doses mackjas do radiooocus freqiienciae... 
RODADA MS congratula-se com seus companheiros e amigos 
PYIDFF-Claudio (continental leader, 21 MHz, South America) e 
ZY5CIG/PY5ClG-Alcione (top score, all bands, Brazil) pelos 
6timos resultados obtidos no 1983 CQ World Wide WPX CW 
Contest, divulgando o nome do Brasil e aumentando ainda mais 
o conceito de que gozam os cedablistas brasileiros em todo o 
mundo. 

Correspondencia recebida: de PY2AQOLuiz, com uma lista de 
72 colegas que ja se flzeram presentes na Rodada do Micro e 
de PY7 AHJ-Cruz, tambem com uma lista de sete colegas da 
cidade de Recife interessados no uso do micro no 
radioamadorismo (todos ja devidamente cadastrados na 
RODADA MS); de PP1 DMX-Anaildo e PYSAKW-Nei, com 
palavras de incentive e solicit ando informacdes, ja remetidas 
diretamente; de PY2CJW-Maneco, com o apoio e incentive do 
GPCW.de PY7AOR-GaIba, PY2JM-Jose" Minerva, PY5ALX- 
Drago, PY2IPL-Pedro, PY5UX-AdSo, PY2JRF-Jose' Reynaldo, 
com solicitacoes diversas e habilitando-se ao sorteio das 
assinaturas de MS; de GMPR, com o BI de Abril/Maio. 
CQ! CQ! Nao deixem de mandar, ate* IS de agosto, um QSL 
ou bilhete com alguma sugestao, crftica ou comentario sobre a 
RODADA MS, para concorrer ao sorteio de ties assinaturas 
anuais de MS! Aproveitem para informar-nos o tipo de micro 
de que dispoem. 

Se voce acha que nao tern espaco para instalar uma antena de 
80 metro s, ou mesmo de 40 metros, nao perca nossa proxima 



RODADA. Nela sera publicado um programa de PY2AQO- 
Luiz Dara a linha Sinclair, de facuima adapt acao para a linha 
TRS-80, que faz o cilculo de antenas dipolo encurtadas ou 
bobinadas, com todos os detalhes de construcao. Para dar uma 
ideia de aplicacao pratica, a primeira pergunta i: qual o espaco 
dispom Vel para a instalacao da antena? 
PY2 AQO-Luiz esta pretendendo colocar em funcionamento 
a Rodada do Micro tambem em 20 metros e, para que possa 
melhor atender a todos os interessados, solicita sugestoes, 
via MS, sobre horarios. Enquanto isso , ele continua a disposicao , 
diariamente, a partir das 16 :00h, em 7097 KHz. 
Agradeco aos novos companheiros que a cada dia se fazem 
presentes com solicitacoes e palavras de incentive. Da mesma 
forma, desejo agradecer a todos os colegas que bicoram as 
freqiiencias onde eventualmente me encontro para dizer que 
leram a RODADA MS. Este espaco e nosso e o seu sucesso - 
ou insucesso - depende de todos e de cada um de nos. 
J a pensaram como seria bom poder transmitir programas e/ou 
dados via radio? Pois bem , temos uma equipe reahzando testes 
neste sentido, ja tendo obtido alguns resultados positives. Algum 
colega teria conhecimento a respeito para dividir conosco? 
Vamos, entao, ao programa Codigo Morse. Ate a proxima, boa 
sorte nos exames de promocao e espero encontrri-Jos tambem 
pelas subfaixas. 
HPE CUAGN 73 ES GL FM PYIDWM-Quito 



A RODADA MS e coord enada por PY IDWM-Roberto QUITO 

da Sant'Anna. Quaiquer correepondftneia e/ou colaboracio deve 

nr anviada aos seus euidados, para a Av. Preekianta Wilson, 

165, grupo 1210, CEP 20030, Rio da Janeiro, R J. 

Contatoadiratos via Rodada do Micro (7097 KHz, das 

16:00 as 18300h). Patrulha da Madrugada (7065 KHz, das 22 KM) 

is 23:00h) ou palo talaf one (0243) 54-3355, ramaJ 594. 



foi adaptada de um artigo publicado no numero 16 de MICRO 
SISTEMAS, Janeiro de 1983, intitulado Transforme seu DGT- 
100 em um instrumento musical, de autoria de Carlyle Macedo 



Junior e Edelvfcio Souza Junior. 

O programa, incluindo suas vari^veis e o arquivo de imagem, 
ocupa cerca de 3.300 bytes. Bom aprendizado. J^ 
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NUNCA E 
TARDE PARA LER 

/Micro 



<8 



.0 



Pte 




Se voce nao adquiriu MICRO SISTEMAS na data certa, nos /he damos uma segunda chance! 



• Seu pedido pode ser feito 

por carta, indicando 

quais os numeros 

atrasados que voce" quer. 



Acrescente a este um cheque 

cruzado, nominal a ATI 

Editors Ltda., no valor 

correspondente ao seu 

pedido. 



• E nao se esquepa de incluir 

o seu endereco para 

que nos possamos 

fazer a remessa. 



Aqui estao os nossos enderecos. 



ifiUJ 



Av. Presidente Wilson, 165 - grupo 1210 - Centra - Rio de Janeiro 
- RJ - CEP 20030 - Tels.: (021 ) 262-5259, 262-6437 e 262-6306. 
Rua Oliveira Dias, 153 - Jardim Paulista — Sao Paulo - 
SP - CEP 01433 - Tels.: (01 1) 853-7758 e 881-5668. 



C6DIG0 MORSE A MODA SINCLAIR 



Codigo Morse 



1 REM 12345678901234.557890123 
4-567390123455 

2 LET fl$s"DD 21 00 00 11 00 

01 FF FF D5 El 3E 01 D3 FF 09 
Dfi 92 40 D5 El 3E 02 D3 FF 09 Dfi 
9C 40 DD 09 Dfi 3C 40 C9" 

3 LET X =16514 

4 FOR N = l TO- LEN fi$ STEP 3 

5 LET RsCCODE fl$ CN) -28) *16+C0 
DE fi$ (N + l) -23 

6 POKE X , fi 

7 LET X=X*1 
S NEXT N 

10 REM "MORSE" 

20 REM MICRO SISTEMfiS - URGES 

30 FRST 

40 DIM C$ '.36 , 6) 

50 DIM D$(5,li 

60 LET F$ = "" 

70 LET K1=PEEK 16436 

30 LET Bs = - 22222 12222 11222 1 
1122 11112 11111 21111 22111 222 
11 22221 12000 21110 21210 21100 

10000 11210 22100 11110 11000 1 

2220 21200 12110 22000 21OO0 222 
00 12210 22120 12100 11100. 20000 

11200 11120 12200 21120 21220 2 
2110" 

90 FOR N=0 TO 35 

100 LET C$ (N + l) =B$ (N*6+l TO N*S 
+ 5) 




SOFTWARE 
...seu micro merece! 




PAR* QUEM OUER AVENTURA E MUITA *CAO... 
EM CAM FITA 5 SENSACIONAIS JOGOS. EM LINGUAGEM OE MAQUINA . PARA MICROS 

a iOgica Sinclair" com »« ct ram 



UCHOSACU 

• CASCA. A COBRA 
■ CRAZV KONG 

• CENTOPElA 
> FROGGER 

i SUCURl 



Avsmju a mis i r RK> 

■ PIRAMTOE INCA 

• SABOIAGEM 

■ OAVENTUREIRO 

• MAZOGS 

■ USS ENTERPRISE 



C0M1ATE 

■ NIGHT GUNNER 
' ALERTAVERMELMO 
> POLARIS 
I OUELO 

i trriiMttii 



PATKUUUCAUCTKA 

• NAVE MAE 

■ FUNGOSMUTANTES 

• GAlATICA 

■ SOS VEGA III 

• PERSEGUIDOR 




SE O SEU NEOOCIO E PROORAMAR... 

2 FITAS CONTENDO AS MAIS POOEROSAS 
FERRAMENTAS PARA PROGRAMAR EM BA- 
SIC CO LINGUAGEM Of MAOUINA 



ROT I Ptai 

SOG ■ Una cm • mo pooarna »ifc> at ROT 

t Mu HniKlOnjI SflltfTM Odv *ft>n«l GltlCD. 
MERGE 



I ASSEMBLER 
I OESASSEMBLER 
COMPILAOOH BASIC 



Procure nossos revendedores 
em todo O Brasil 



< 



•AvA MICROCOMPUTADORESLTDA 

Av Graca Aranna 145 -S/Loia n° 1 • Rio ae Janeiro RJ 
CEP 20030 Tel 1021)262-6968 



110 
120 

( 3 
130 
140 
150 
160 
/3) " 
170 
130 
190 
200 
210 
220 
230 
240 
250 
260 
270 
230 
290 

300 

31© 
500 
510 

6 .70 
520 

6,21, 
530 
540 
550 
560 
570 
530 

1000 

1010 
1020 

1030 

1040 

1500 

1510 

1520 
1530 
1540 
1550 
1550 
1570 

2000 
2010 

2020 
2030 
2040 
2500 
2510 
2520 
2530 
2540 
2550 
2550 

3000 
3010 

3020 
3030 
3040 
3050 



10 ,4.; "UEL00IDRDE 



NEXT N 
PRINT fl" 
0/200) " 

INPUT R 

POKE 15519..R 

CLS 

PRINT RT 10 .8; "MODO" 



(1/2 



INPUT B 

CLS 

IF B=2 THEN GOTO 1500 

IF B=3 THEN GOTO 2500 

G0SUB SOOO 

LET C=INT (36*K4) 

LET E$=0HR$ C28+C) 

IF E$=F$ THEN GOTO 210 

GO SUB 1000 

GOSUB i'OO 

IF INKEY$="" THEN GOTO 270 

LET Fj=INKEY$ 

IF F$=" ." THEN GOSUB 2000 

IF F$=E* THEN GOTO 210 

GOTO 260 

FOR N=l TO 5 

IF D$(N)= :: 1" THEN POKE 1651 

IF D$iN)="2*' THEN POKE 1651 
) 

IF D$(N-= :, 0" THEN RETURN 

RAND USR 15514 

FOR K=l TO fi/5 

NEXT K 

NEXT N 

RETURN 

LET G*=C$::0 + 1) 

FOR N=l TO 5 

LET D$(N3 =G$ (N) 

NEXT N 

RETURN 

FOR N=l TO 20 

NEXT N 

IF INKEY$= M " THEN GOTO 1520 

LET Hi=INKEY$ 

LET 0=OODE H$-2S 

GOSUB 1000 

GOSUB 500 

GOTO 1520 

SLOU 

PRINT RT 10 . 10; E$ 

PR USE SO 

FRST 

RETURN 

FOR 0=0 TO 35 

GOSUB 1000 

GOSUB i-00 

FOR K=l TO R 

NEXT K 

NEXT 

GOTO £500 

LET K1=RBS (439147+K1) 

LET K2= 10**8+1 

LET K3=23*K1 

LET Ki=K3-INT (K3/K2) *K2 

LET K4=K1/K2 

RETURN 



? 



Jorge A. C Bettencourt Soares 6 engenheiro agrdnomo e trabalha na 
Coordenadoria de Assistincia T6cnica Integral da Secretaria de Agricul- 
ture e Abastecimento, na cidade de Bauru, SP. J6 foi programador de 
urn Burroughs B-500 no infcio da decada de 70 eatualmente 4 utuirio 
de um TK86. 
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RINGO R 470 CHEGOU A CIDADE. 
OS OUTROS MICROS QUE SE CUIDEM 
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|Cr$ 449.950,00 

microcomputador Ringo R-470 6, disparado, o melhor em sua categoria E mais rapido na execucjio de programas, oferece amplas possibilidades de 
expansao e e o unico micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI • Secretaria Especial de Informatica. 

Urn verdadeiro herbi national. 

Voce pode contar com ele para resolver problemas pessoais ou prof issionais, ou simplesmente para se divertir, atraves de varios jogos disponiveis em 
cartuchosoufitas. 

Alias, cartucho e o que nao falta para o Ringo. Ele 6 compativel com todos os programas do famoso Sinclair e possui equipamentos perifericos 
exclusivos que ampliam muito a sua capacidade. 

Compare o Ringo R-470 com os similares e comprove: nunca apareceu urn micro pessoal tao profissional porestas redondezas. 

A venda nas lojas especializadas em micros, 
foto-video-som e grandes magazines. 
Nao encontrando o Ringo nestes locais, ligue para 
21 7.8400 (SP) ou (01 1) 800.8441 e 800.8442 (Outras 
localidades do Brasil). DDD gratuito. 



CARACTERISTICAS TECNICAS: 

• Unguagem Basic e codi gos de maquina 2-60 

• 8 KBytes ROM expandivel para 16 K Bytes 

• 16 KBytes RAM expandivel para 48 K Bytes 

• Utilizavel em qualquer TV P4B ou cores 

• Conector para Joystick (jogos) 

• Teclado tipo QWERTY com 49 teclas e 155 funcoes - teclas de edicao 
[ movi mentack) de cursor e correcao) com repeticao autsmatica 

• Exclusiva tecla de inversao de video 

• Tela com 24 linhas de 32 colunas para texto 



• Resolucao grafica 64 x 44 pixels (unidade grafica), podendo atingir uma 
matriz de 256 x 192 quando utilizado com cartuchos 

• Calculos aritmeticos, funcoes trigonometricas, logaritmicas e logicas 

• Cartuchos "Instant Soft" (programas aplicativos em ROM - exclusivo) 

• Velocidade de gravacao em fita cassete 2.400 BPS 

EXPANSOES: 

• Gravador de EPR0M para gravar, editar e copiar programas em cartucho 

• Interface para impressora ou maquina de escrever elet nca 

• Sintetizadordesons 

• MODEM (Comunicacao telefdnica - 1.200 Bauds) 

• Prepo sujalto a allera(to 



RINGO K=^(2 

O micro que aceita desaf ios. 

Ritas do Brasil Ltda. - Divisao Informatica 
Telex (01 1)34673 Rita BR 




• RAMCARD • SOFTCARD • VIDEOTERM • SOFTVIDEO SW • PROGRAMMER • PROTOCARD • INTF. DISKS 

INF. PRINT • SATURN 128K RAM. • SATURN 64K RAM. • SATURN 32K RAM. • RANA QUARTFO • MICROMODEM 

• MICROBUFFER II • MICROCONVERTER II ■ MICRO VOZ II ■ ULTRATERM ■ ALF 8088 CARD 

■ A800 DISK CONT ■ MULTIFUNCTION CARD 

MICROCRAFT MICROCOMPUTADORES LTDA. 

ADMINISTRATED E VENDAS: AV. BRIG. FARIA LIMA, 1 .664 - 3? ANDAR - CJ 316 - CEP 01452 

FONES (Oil) 212-6286 E 815-6723 - SAO PAULO - SP - BRASIL 
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Microcomputadores CRAFT 
a extensao de sua mente. 



* /WCROCO/MPUT^DORES LTDvl 

Av Brig Faria Lima, 1.698 1° andar Cj 11 CEP 01452 
Tels : (Oil) 212 6286 e 815 6723 Sao Paulo SP Brasil 
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VERSATILIDADE E BELEZA 
PARA SUA IMPRESSAO 

A Scritta. atraves do alto indice de nacionalizacao alcanpado nas impressoras 

GRAFIX 80 e GRAFIX 100. esta colaborando de forma definitiva para que o Brasil 

atinja o nivel tecnol6gico dos paises desenvolvidos. 

SCRITTA eletronica ltda. 

Rua Heli6polis. 61/67 - Vila Leopoldina - CEP 05318 • Fones: 831-9912 e 831-5177 




Enxadnsta experience. Luciano Nilo de An- 
drade j4 escreveu para os jqrnais "Correio da 
Manna"'. "Data News" e "Ultima Hora" e pa- 
ra arevista "Fatos & Fotos". Luciano 6 econo- 
mista, trabalhando no MinistGrio da Farenda. 
no Rio de Janeiro. As opinioes e comentirios 
de Luciano Nilo de Andrade. bem como as 
ultimas novidades do Xadrez jogado por com- 
putadores, estarSo sempre presentes em 
MICRO SISTEMAS. 



Elite A/S 
World Champion 



Gracas ao convite de urn leitor 
conheci este maravilhoso micro. 
Ele 6 a versao recente do Elite 
A/S, que tamb6m foi campeao 
por ocasiao de seu lancamento. 

Elite A/S World Champion vem 
num tabuleiro de madeira com acaba- 
mento esmerado, agradavel ao tato, com 
casas de 4,5 cm cada e pecas de tama- 
nho proporcional com igual acabamento. 
FScil de operar (6 sensory), tern os con- 
trols na borda inferior e dispoe de urn 
visor digital capaz de informar: o tem- 
po que est«i sendo gasto na jogada em 
curso, o total dos tempos das brancas e 
das pretas, bem como a avaliacao da 
posicao. 

Estuda a replica ou nao (a vontade 
do operador) enquanto seu adversa>io 
pensa, o que multiplica por dois os nu- 
meros de m'veis de forca. Estes, ao todo, 
sao oito, apresentando os seguintes tem- 
pos m^dios para cada jogada : 1 -5s; 2-1 5s; 
3- 30s; 4-1 m; 5-2m; 6-3m; 7 -3 ,45m e 
8-6m. 

Outras operacoes podem ser realiza- 
das atravSs de controles para: problemas 
de mate; anSlise de posicoes (excelente 
para xadrez postal), fixar o tempo para 
cada jogada ou para toda a partida; pes- 
quisa iterativa e interativa. Acompanha 
um alentado manual ilustrado. 

A Fidelity Eletronics fabrica, como 



Diagrama A — 
Posicao depot's 
de29-T1BR. 
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periferico opcional, uma impressora que 
registra todas as jogadas e respectivos 
tempos gastos e os tempos totais, al6m 
de imprimir diagramas das posicoes ocor- 
ridas sempre que solicitado. A qualidade 
do diagrama, acredito possa ser melhora- 
da em futuro proximo. 

O WORLD CHAMPION EM ACAO 

Super 9 x Elite World Champion 

Partida do Peao 

Dama — Defesa Ortodoxa 

Rio, junho de 1984 



1 - P4D P4D; 2 - P4BD P3R; 3 - 
C3BD C3BR; 4 - B5C B2R; 5 - P3R 
0-0; 6 - C3B CD2D; 7 - T1B P3B; 8 

- B3D PxP; 9 - BxP C4D; 10 - BxB 
DxB; 11-0-0 CxC; 12 - TxC P4R; 
13 - PxP CxP; 14 - CxC DxC; 15 - 
P4B D5R; 16 - B3C B4B; 17 - D5T 
P3CR; 18 - D6T TD1D; 19 - B2B 
D4D; 20 - P4R (!?). Ate este momento 
ambos os micros jogaram sem pensar, 
apenas de memoria. 20 — ...D5D+ (a 
permanencia da dama negra na diagonal 
1TD - 8TR 6 imprescindfvel para a de- 
fesa de seu rei). 21 - T2B (a autocrava- 
cao da torre iri custar um precioso tem- 
po). 21 - ... TD1RI; 22 - T3CD BxP; 
23 - T3TR D1T; 24 - BxB TxB;25 - 
T1B T7RI; 26 - T1CD. Melhor seria jo- 
gar imediatamente 26 - P5B\. Jogada 
tem<itica desta posicao. 26 — ... T1D; 27 

- R1T T(1)7D; 28 - T3CD D5D;29 - 
T1BR?. As pretas anunciaram mate em 
seis jogadas. 29 - ... D7BII; 30 - 
DxPT+. Puro desespero para retardar o 
final. 30 - ... RxD; 31 - T3T+ R1C; 
32 - T8T+ RxT; 33 - T1CR DxT+; 
34 - RxD T8D/R mate. Veja o diagra- 
ma A. 



ENCONTRE TAMB^M A SOLUCAO 

Polugaievsky x Antoshin 
Leningrado, 1956 



Diagrama B — As 
brancas jogam e 
ganham. Para 
encontrar a 
solucao, o Elite 
A/S World 
Champion gasto u 
2m54s; o Elite 
A/S 3m37s;o 
Constellation 
5m; e o G.G. 
Machine, com o 
programa Stein itz, 16m10s. 



Valesnu x Enger 
Correspondent 1972/73 





Diagrama C — As 
brancas jogam e 
dao mate em 
cinco jogadas. 
Tempos gastos 
na busca da 
solucao: Elite 
A/SW. 
Champion — 
6m52s; Super 9 
- 14m40s. 



Origem desconhecida 
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Diagrama D — 
As brancas 
jogam e ganham. 
Tempos gastos 
na busca da 
solucao: Super 9 
— 1m50s; Elite 
A/SW. 
Champion — 
6m30s (para 
surpresa geral, 

gastou mais tempo do que o Super 9); G. G. 

Machine -1m1 Is. 



Solucoes 

iWJUJogoaiU/llU -9 

•p+bd x o olu - p -+a£0 axa - e (ew 

-ep ep eanideo e no ajew ebeawe) 393 
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191 - fr '8fr (S)0 39d - £ -120+0111 

- Z -11 U 01L1 - I - ewejBeia 

■epipjad ejsa sjjoi v 'wejeu 
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Programas 
que escrevem programas 
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Software. Esta e a palavra magica 
que faz com que um micro- 
computador - dotado do hard- 
ware adequado - seja uma ferra- 
menta de auxilio quase ilimitado para o 
homem. Nos ultimos anos foram criados 
programas para quase todas as aplica- 
coes imagindveis, mas isso parece ter si- 
do pouco para alguns programadores 
norte-americanos. Eles resolveram ir 
mais alem e criaram programas que , eles 
proprios, geram outros programas. 

Na verdade, os programas que escre- 
vem programas s5o um tipo de software 
extremamente sofisticado, capaz de pro- 
duzir programas muito simples e apenas 
de acesso a banco de dados, tais como 
mala-direta, contas a pagar e a receber 
e qualquer tipo de arquivo relacional 
que venha a substituir um fichario. Com 
eles, qualquer pessoa pode criar, em 
questao de minutos, o seu pr6prio pro- 
grama de banco de dados, e sem possibi- 
lidade de erros de programacao. 

Nos Estados Unidos ja* existem alguns 
programas desse tipo, sendo que alguns 
dos mais famosos sao o Creator e o Pro- 
ducer, ambos desenvolvidos para a linha 
TRS-80. Creator, inclusive, ja teve sua 
listagem completa publicada na revista 
norte-americana 80 Micro (veja a mate- 



ria Creator, uma ferramenta de progra- 
macao, publicada nesta mesma edicao). 
Ambos trabalham com um arquivo que 
conte'm linhas de programas semi-pron- 
tas. usuario, no decorrer do Creator 
ou Producer, define os parametros espe- 
cificos do programa a ser gerado e, final- 
mente, o programa gerador monta todas 
as linhas, dando como resultado um pro- 
grama modular, comentado e todo em 
BASIC. 

VANTAGENS E DESVANTAGENS 

Para se ter uma ideia da rapidez com 
que esses programas geram outros pro- 
gramas, basta dizer que um profissional 
da drea levaria aproximadamente um dia 
para fazer um programa, para seu pro- 
prio uso, de cadastro de mais ou menos 
cem titulos de sua biblioteca te'cnica. 
Creator gasta, apos a entrada dos para- 
metros, menos que dez minutos para lis- 
tar o novo programa. 

Uma grande vantagem do Creator e 
do Producer e que o metodo de acesso 
aos registros do programa gerado (res- 
pectivamente, Hashing e BTree) 6 mais 
eficiente do que aqueles geralmente uti- 
lizados pelos programadores quando de- 
senvolvem um software desse tipo. A 



funcao Hashing, usada em arquivos orga- 
nizados randomicamente, 6 um algorit- 
mo que converte a chave num codigo de 
referenda do registro. BTree, que literal- 
mente quer dizer Binary Tree (arvore 
binaria), 6 um tipo de estrutura de ar- 
quivos onde cada registro contem um 
ponteiro que indica onde esta alocado 
no disco o registro a seguir. Ambos pos- 
sibilitam imediato acesso ao dado sem 
utilizar o demorado processo de indices, 
largamente usado. 

Como os programas gerados tanto 
pelo Creator como pelo Producer nao 
chamam rotinas em Assembler, eles po- 
dem ser transportaveis para outras linhas. 

Aldm de criar um programa de acesso 
a banco de dados com todas essas van- 
tagens \i descritas, estes programas ain- 
da permitem que se facam calculos entre 
os campos dos registros. que nao 6 
possivel, no entanto, 6 a intera9ao auto- 
mdtica de dois ou mais programas gera- 
dos - fazendo-os funcionar como um 
sistema — sem a interferencia de um 
programador profissional, que poderia 
fazer isso com relativa facilidade. 

Uma outra limita9ao esta no tama- 
nho do registro - 255 bytes no Creator 
e 251 no Producer, que utiliza os outros 
bytes no controle do BTree. 
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DE LEIGOS A PROFISSIONAIS 

A gama de possiveis usuanos desse 
tipo de programa 6 bem ampla. Ele serve 
basicamente a leigos em programacao e 
a pequenas empresas que tenham diver - 
sos arquivos a organizar, mas que na"o 
justifiquem a contrata^ao de um progra- 
mador profissional exclusivamente para 
isso. 

Por outro lado, ate o programador 
profissional pode desfrutar das vanta- 
gens do Creator e do Producer. Esses 
programas podem servir como um 6timo 
ponto de partida para o profissional 
criar implementa9oes diversas, produzin- 
do programas mais sofisticados e de apli- 
ca96es mais especificas. Como os pro- 
gramas gerados sao todos semelhantes, 
basta analisar o me'todo de programacao 
de um, para conhecer o de todos os 
outros . Partindo do programa gerado, o 
programador nao perde tanto tempo 
com a entrada de dados e criacao 
de telas. 

Quern for aproveitar assim os progra- 
mas gerados, vai sentir mais facilidade 
de leitura na listagem produzida pelo 
Creator que, ao contrario da produzida 
pelo Producer, na"o e compactada e con- 
tern uma me'dia de dois comandos por 
linha de programa. 

E essa diferen9a entre os dois progra- 
mas comeca na operacao. Enquanto o 
Creator pode ser utilizado por qualquer 
pessoa, mesmo leigos em programacao, 
o Producer exige um grau de conheci- 
mento maior de quern for operd-lo, pois 
certamente tera que recorrer varias vezes 
ao seu extenso manual. 



Este e' o CRIADOR. Ele poss i b i 1 i t ara ' a voce gerar 


programas 


que criem e acessem um arguivo de dados. 




Por favor entre o nome para o programa proposto. 




Use no max i mo oito letras. 




Nome do proqrama = _. 





Figura 1 - A tela initial do Creator, numa versdo traduzida para o Portugues. Note, comparan- 
do-a com a figura 3 (tela initial do Producer), que ela £ bem mais simples e, conseqiientemente, 
acessivel a qualquer usudrio. 



O CREATOR, PASSO A PASSO 

Creator 6 um programa que escre- 
ve programas de banco de dados no 
Basic Microsoft do TRS-80. Mas como 
ele gera um programa modular, torna-se 
f£cil a adaptacSo a qualquer DOS da fa- 
ni ilia TRS-80. £ um programa de utili- 
zacao muito simples, pois usa a forma 
de pergunta e resposta para definir os 
parametros que vao gerar o arquivo de- 
sejado pelo usuario. Todas as informa- 
coes do Creator encontram-se na pr6pria 
tela, na"o havendo necessidade de recor- 
rer-se a manuais. 

Na primeira tela (veja a figura 1), o 
Creator pergunta pelo nome do progra- 
ma a ser gerado, a unidade de disco que 
conteri o arquivo de dados, a unidade 
onde o programa sera" gravado. Depois, 
o usudrio e questionado a respeito do ta- 
manho maximo do seu arquivo em nu- 
mero de registros, do tamanho do regis- 
tro - que pode ir ate 255 bytes- eo 
ti'tulo para o programa. 

Apos responder a essas perguntas. o 
usudrio pode escolher um codigo de sai- 
da que permitira" ao operador do progra- 
ma gerado parar a entrada ou a atualiza- 
9§o dos dados sem gravar as ultimas alte- 



ra96es, retornando ao menu. Entao apa- 
rece uma se"rie de perguntas repetitivas 
sobre cada campo do seu registro. lni- 
cialmente, voce 6 questionado sobre o 
tamanho do campo. Campos compacta- 
dos podem ter 8,4 ou 2 bytes (estes, 
compactados) e campos alfanume'ricos 
ou nume'ricos que n5o obede9am a esse 
padrao podem ter de 1 a 255 bytes de 
tamanho. C Creator pergunta, entao, se o 
tamanho que voce escolheu esti corre- 
to e informa quantos espa^os ainda 
estao sobrando, passando para o proxi- 
mo campo ate que nenhum espaco sobre 
no registro. 

Uma vez definido o campo-chave, o 
usudrio descreve as mensagens ao opera- 
dor, as validacoes e o tipo de dado que 
estd sendo armazenado em cada campo. 
No ultimo caso, as respostas possiveis 
sao: numerico nao compactado (N), in- 
teiro compactado (PI), compactado 
com precisao simples (PS), compactado 
com precisao dupla (PD) e caracteres 
(C). Para rever essas instru96es a qual- 
quer momento durante a execu9ao do 
programa, basta digitar a palavra SOS 
(veja a figura 2). 

Terminada essa serie de defini95es de 
parametros, o Creator informa: EST A- 



As palavras-chaves que voce precisa saber 



Arquivo (File) - £ um conjunto 
de registros. Uma cademeta de 
nomes e telefones, por exemplo, 
e um arquivo que conte'm infor- 
maQoes sobre seus amigos. No 
computador, o arquivo e arma- 
zenado na sua propria memoria 
ou em algum tipo de memoria 
auxiliar, geralmente uma fita 
cassete, disquete ou disco n'gido. 

Campo (Field) - £ um peda^o 
de informacSo. Numa caderneta 
de nomes e telefones, por exem- 
plo, o nome de uma pessoa seria 
um campo de informacao; seu 
endereco, outro campo e oCEP 
da localidade, outro campo. £ 
uma area definida que sera di- 
gitada ou mostrada no video. 
Seu tamanho deve ser pre defi- 
nido com um ou mais caracte- 
res e apenas esse niimero maxi- 
mo de caracteres pode ser en- 
trado ou mostrado nessa area. 
Um ou mais campos formam um 
registro. 

Campo-chave (Key field) - £ 



um determinado campo do re- 
gistro que sera sempre usado 
para armazenar, recuperar ou 
editar aquele registro. Numa ca- 
demeta de nomes e telefones, 
por exemplo, armazenada em fi- 
ta ou disco, existe um registro 
assim: 19 campo - MARIA RI- 
TA SOBRINHO; 29 campo - 
568.0000; 39 campo - Rua 
Vasconcellos, 99; 49 campo etc. 
Se usarmos para recuperar esse 
registro, o 19 campo, que con- 
tent o nome da pessoa, este cam- 
po sera chamado campo-chave. 



Dado (data) - £ uma ide'ia, de- 
finicao, palavra, grupo de pala- 
vras ou niimero. Ou seja, e qual- 
quer informacao que e armaze- 
nada por um computador ou 
que voce digita num computa- 
dor. 



Default - Chama-se default ao 
valor ou nome que o computa- 
dor assume quando o usuario 



n2o define aquele parametro. 
Por exemplo: numa determinada 
etapa da execucao do programa, 
ele pede ao usuario para entrar 
com o nome do arquivo em 
questao. Se o usuario entrar 
com esse nome, o computador o 
utiliza normalmente, mas se o 
usuario nao responder com o 
nome pedido e apenas teclar 
ENTER, o computador vai usar 
o default de nome de arquivo 
que ele tiver. Para isso, enta*o, 
o default para valores ou nomes 
deve ser previamente definido. 

Editar (Edit) - Editar quer di- 
zer modificar o conteiido de um 
campo digitando-se nova infor- 
macao ou corrigindo-se a infor- 
macao que ja estava no campo. 
Isso pode ser feito digitando-se 
por cima dos caracteres contidos 
no campo ou inserindo/dele tan- 
do caracteres. 

INPUT - Um comando que sig- 
nifica digitar informacao para 
dentro de um campo. 



Menu - £ uma lista de opcoes 
que da a voce a possibilidade de 
escolher uma delas. Voce geral- 
mente escolhe um comando do 
menu pressionando o niimero 
ou a letra que vem antes ou apos 
a opcSo. 

Registro (Record) - £ um con- 
junto de campos. Todos os cam- 
pos de um registro devem ter al- 
gum fator em comum que os li- 
gue. Numa caderneta de nomes 
e telefones, todos os fatos (cam- 
pos) sobre uma mesma pessoa 
formam o registro daquela pes- 
soa. 

Tela (Screen) - £ uma area de- 
terminada por voce para permi- 
tir a entrada e disposicao de sua 
informacao. A palavra tela as ve- 
zes refere-se tambe'm a uma serie 
de caracteres e graficos que apa- 
recem todos ao mesmo tempo 
no monitor de video de seu 
computador. Uma tela deve ser 
totahnente visivel por n6s num 
linico instante. 
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PROGRAMAS QUE ESCREVEM PROGRAMAS 



Agora temos que descrever as mensagens ao operador, 
as validaoes a serem feitas, e os tipos de dados para cada 
rampo. Para isto, faremos algumas perguntas sobre cada campo. 
Para a guest ao "Tipo de dados" as respostas possiveis sao- 

N Numerico, nao compactado . 

PI Inteiro compactado. Usa 2 espaos. 

PS Compactado precisao simples. 4 espaos. 

PD Compactado precisao Jut-la. 8 espaos. 

C Caracter. i espao. 

Voce pode entrar a palavra SOS para ver estas instrucoes ma i s 
tarde. Pressione gualguer tecla para continuar. 



Figura 2 - Um trecho de tela do Creator, logo apds as perguntas que definem os campos do 
registro. Observe que as explicates necessdrias estdo todas contidas na propria tela, juntamente 
com a pergunta ou, como no caso. logo antes delas serem feitas. 



MOS QUASE NO FIM. Depois, voce de 
ve digitar uma pergunta que sera feita ao 
operador para saber se ele jd terminou a 
entrada de dados; a resposta deve ser do 
tipo S/N. Uma vez isso feito, o Creator 
volta a se comunicar com o usuario, in- 
formando: AGORA ESTOU COLO- 
CANDO EM ORDEM NUMERICA AS 
LINHAS DO SEU PROGRAM A. ISTO 
VAI TOMAR ALGUNS MINUTOS... 
Creator leva cerca de tres minutos para 
gerar um programa simples como agenda 
com nome e telefone (50 registros). 

A tela do programa gerado propor- 
ciona as seguintes op96es: entrar dados 
(E), listar um registro (L), verificar to- 
dos os registros (V), atualizar um regis- 
tro (A), retirar um registro (R), iniciar 
um arquivo (I) e sair do programa (S). 

OPERACAO DO PRODUCER 

Producer, do norte-americano Ro- 
ger Smith, e um programa bem mais so- 
fisticado e extenso que o Creator, con- 
tendo inclusive algumas rotinas em 
Assembler. Ele gera programas de ban- 
cos de dados em BASIC e da possibilida- 
de a uma maior interacao e participacao 
(as telas sao feitas pelo proprio usuario), 
embora possua um m'vel maior de com- 
plexidade de operac^o, o que exige di- 
versas consultas ao extenso manual que 
o acorn panha. Producer opera em 
DOS-Plus 3.4 e uma de suas vantagens e" 
a comunicacao constante com o opera- 
dor, dando opcoes de conserto e alertas. 
Assim como o Creator, 6 um programa 
para ser rodado em equipamentos da li- 
nha TRS-80, s6 que necessita de dois 
drives, pois o sistema sozinho ocupa um 
disco inteiro. 

Na primeira tela do Producer (veja a 
figura 3), aparecem os dois menus prin- 
cipals. A menu A consiste em ferramen- 
tas e utilitarios que o usuario vai usar 
para a geracao e atuaIiza9§o do progra- 
ma. J£ o menu B possui todas as etapas 
para a construcao propriamente dita do 
programa a ser gerado. Ambos sao for- 
mados por seis itens. 

primeiro item do menu A e' o 



Planning Form (formulario de planeja- 
mento), que simplesmente imprime um 
formulario contendo todos os parame- 
tros que voce precisa definir para gerar o 
seu programa (nome do programa, data, 
objetivos, numero de campos e registros, 
nome, tamanho e tipo dos campos e cdl- 
culos do programa). Com todos esses da- 
dos a mao, e muito facil digitar o que 
for pedido pelo Producer, pois todas as 
respostas ao programa estarao no formu- 
lario. 

segundo item do menu Ado Lo- 
gon Filename (arquivo de nomes), que 
serve para o usuario determinar quais 
vao ser os seus default de nome de ar- 
quivo e de drive. Com isso, o uso dos 



m6dulos do Producer torna-se mais xi- 
pido, uma vez que bastard teclar EN- 
TER cada vez que for pedido um desses 
dois itens. O terceiro item i o Reference 
Form (formulano de referenda), que 
mostra uma pagina de relatbrio que con- 
tem informa95o sobre o programa que 
est a sendo criado. 

Ele mostra, numa tabela, o nome de 
cada campo e os respectivos numero do 
drive e tamanho do campo, inclusive o 
numero de ca^culos, que dird quantos 
ca^culos estao ligados aquele campo em 
particular. 

Maintain Files (manuten9ao de ar- 
quivo) 6 o quarto item e d£ quatro 
op96es: iniciar o arquivo, balancear os 
arquivos, reconstruir os arquivos e retorno 
ao menu . E por ultimo ha o Utility 's Menu 
(menu de utilitdrios), que contdm os 
utilitarios operacionais do sistema, para 
gerar e manter o programa, tais como 
listar um diretdrio, apagar um arquivo, 
transferir um arquivo, converter um ar- 
quivo do DOS-Plus para TRSDOS. 

menu B come9a com Create a 
Screen (criar a tela), que permite ao 
usuario, atraves dos buffers, o controle 
de ate' oito telas. O programa lista os 
comandos de edi9ao de tela (veja a figu- 
ra 4) e um dos itens, o Help (ajuda), 
permite visualizar, sempre que necessd- 
rio, esses comandos. Os itens seguintes 



The PrnriurEP 



A PROGRAM DEVELOPMENT SYSTEM 



(01982 BY ROGER SMITH 



DISTRIBUTED BY 
HEART OF TEXAS 
COMPUTER SYSTEMS 



PRESS <A> OR <B> TO 
SELECT DESIRED MENU 



<1> PLANNING FORM 

<2> LOGON FILENAME 

<3> REFERENCE FORM 

<A> MAINTAIN FILES 

<5> FUTURE MENU 

<6> UTILITY'S MENU 
<R> 



<1> CREATE A SCREEN 

<2> EDIT BASIC DATA 

<3> MAKE BASIC LINES 

<<l> BUILD REPORTS 

<5> BUILD PROGRAM 

<6> EXIT TO DOS 
<B> 



Figura 3 - A tela inicial do Producer, que oferece as duas opcoes de menu. Como se pode ver, 
quando utilizado pela primeira vez, o usudrio terd que recorrer ao manual para saber o que cada 
item do menu faz. 



THE PRODUCER I Bl -SCREEN SENERATOR 
CREATE AND DEFINE A CUSTOM SCREEN 


BUFF* MEMLOC STATUS 


<1> DISPLAY a Buffer to Screen 
<2> LOAD a Buffer -from Disk 
<3> CLEAR Selected Buffers 
<4> FUTURE Expansion 
<5> SAVE Buffer* to Disk 
<6> EDIT:Screen Creation Mode 
<7> TRANSFER Buffer to Buffer 
<8> HELP: Show EDIT Commands 
<9> RETURN to Master Menu 


1 — 55009 — OCCUPIED 

2 ~ 56033 — OCCUPIED 

3 — 57057 —EMPTY 

4 — 58081 — EMPTY 

5 — 59105 —EMPTY 

6 — 60129 —EMPTY 

7 — 61153 — EMPTY 

8 — 62177 —EMPTY 

9 — 63201 — OCCUPIED 


PRODUCER! 







Figura 4 - A primeira opcdo do menu B (Create a Screen) gera esta tela, que contem todos os 
comandos de edicdo de tela listados. 
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sao Edit Basic Data (editar dados em 
Basic), que permite editar nessa lingua- 
gem o que o usuario criou na tela; A/a&e 
Basic Lines (fazer as linhas do programa 
em Basic); Build Reports (construir rela- 
t6rios), que serve para construir as li- 
nhas de mensagem da impressora; Build 



Program (construir o programa), que 
reiine todos os dados para enfim montar 
o programa; e Exit to DOS (saida para o 
DOS). Mais rapido do que o Creator, o 
Producer leva entre um e dois minutos 
para gerar um programa, dependendo da 
sua complexidade. 



A opinido de quatro usudrios 



Roberto Quito de Sant'Anna 



"Tanto o Creator como o Producer sao macro-programas capazes de liberar qualqucr 
usuano de micro da dependencia das software houses c da pasteurizacdo dos programas 
por elas comercializados, uma vez que permitem a qualquer pessoa, sem maiorcs 
conhecimentos de program acao, construir um programa totalmente autonomo, 
perfeitamente adaptado as suas neccssidades especi'ficas e com ni'vel de sofisticacao 
bastante elevado. F.m cursos de computacao, esses programas deveriam ser citados, 
porque representam uma evolucao no campo do software, constituindo-se o que se 
podcria chamar uma segunda geracao de programas: os programas que geram programas". 

(Quito 4 professor de Informdtica da Academia Militar das Agulhas Negras. em Resende, 
e assessor tecnico da MICRO SISTEMAS. Formado em Engenharia de Telecomunicacoes. 
tern 42 anos e e usuario de um CP-500.) 



Joao Henrique Volpini Mai tos 



"Os programas que geram programas tern que ser encarados como uma ferramenta de 
trabalho apenas, pois nao vao resolver por completo 99% dos casos. f. mais u til para um 
programador profissional ter vanos utilitarios de cdicao de video, para definir formato c 
campos de imprcssao e para accssar o registro, do que um programa como o Creator ou 
Producer. O Producer fica restrito a uma string com um byte para cada carater ou 
numero inteiro. Nao possui rotina de compactacao e serve apenas para mala-direta e 
fichario com ate 256 caracteres. Nao faz uma cn'tica mais detalhada e as restricocs sao 
pouco restntas, pois um programa geral nao pode prever tudo". 

(Volpini e~ programador do Estaleiro Maud, usando os equipamentos IBM 4341 e 

HP 9830. Formado em Engenharia Naval, tern 27 anos e presta servicos como autonomo 

num Dismac 8002.) 



Renato Degiovani 



"Como utilizacao dome'stica, eu nao vejo scntido para um banco de dados. Porem, 
dentro das profissoes liberals cxistem areas ondc seria interessantc a implemcntacao de 
um BD. Um caso especi'fico seria a criacao de um fichario com as caracten'sticas fi'sicas 
de vanas espccificacocs de papeis, isso dentro da minha area profissional (programacao 
visual). Num micro, esse fichario daria condicocs ao usuario de cscolher, entre varios 
papeis, o mais adequado para a realizacao de um trabalho grafico eficiente. Isso nao tira o 
emprego do programador, mesmo porque tais utilizacoes nao justificam a contratacao 
dos strvicos desses profissionais. O proprio profissional liberal pode, com a utilizacao 
do Creator ou Producer, dar soluqao aos seus problemas especificos de uma forma mais 
imediata, pois bastam uns poucos minutos para se ter o resultado final. Se levarmos em 
conta ainda que nao havera o trabalho de digitacao, teste c depuracao do programa final, 
enta"o a opcao pelo Creator ou Producer passa a ser muito interessantc". 

(Renato & diretor te"cnico da MICRO SISTEMAS e usudrio dos micros do CPD da 
Revista. £ formado em Programacao Visual e Desenho Industrial pela PUC do Rio de 
Janeiro e tern 27 anos.) 



Ivan Camilo da Cruz 



"Os programas que geram programas nao tiram emprego de nenhum profissional, cmbora 
a primeira vista isso possa parecer, porque a firma que compra um programa desses nao 
ina contratar mesmo um programador. Como profissional, seria interessantc ter um 
programa como esse para aprovcitar as rotinas de accsso e de leitura de tela, que sao 
muito eficientcs e de alto ni'vel. O grandc defcito desses programas, porem, c a falta de 
flexibilidade, pois so permitem criar programas para um tipo especi'fico de problema, isto 
e, so serve para gerar arqurvos-fichario. Outro ponto: se no Brasii ele for vendido ao 
mesmo preco que nos F.UA (mais de 200 dolarcs), sera mais barato contratar um 

frogramador, apesar deste levar cerca de dois dias para fazer o que o Creator ou o 
roducer podem fazer em uma hora". 

(Ivan 4 programador do Instituto de Quimica da Universidade Federal do Rio de 
Janeiro, onde trabalho com um CP-500. Estudante de Flsica da mesma universidade, 
tern 20 anos e trabalha como programador autonomo num DGT-100.) 
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COLA EM MENOS 
DE 30 SEGUNDOS. 



Colabloc - 1? coladora nacional com 
tempo total de operacao maximo de 

30 segundos. 

Produto de mesa, compacto, simples e 

seguro, ideal para escritorios que nao 

exijam sistemas complexos de 

encademacao. 

Perfeito para atender as necessidades de 

usuarios de computadores e graficas, 

cujo volume de trabalho de 

encademacao nao seja grande. 

Executa um trabalho limpo por nao 

necessitar de contato manual com a cola. 

Nao exige instalacoes especiais, sendo 

apenas necessario uma tomada 
rnonofasica de 110 volts 50/60 Hertz. 
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EQUIPAMENTOS PARA PROCESSAMENTO 
DE DADOS LTDA. 

Matriz: Rua Theodureto Souto, 308 - Cambuci CEP: 01539 

PABX: 270-8244 Telex: 101 1 1 36305 Sao Paulo SP 

REPRESENTANTES TECNICOS E COMERCIAIS 

EMTODOOBRASIL. 



PROGRAMASQUE ESCREVEM... 



Dois 



programas 
- exemplos 



Para que voce, leitor, possa ter uma 
ideia mais clara de como sao esses pro- 
gramas gerados pelo Creator e pelo Pro- 
ducer, a equipe do CPD de MICRO 
SISTEMAS desenvolveu dois programas- 
exemplos a part ir desses programas gera- 
dores. Atrav^s de suas listagens, voce po- 
dera analisar as rotinas e tecnicas de pro- 
gramacao utilizadas e avaliar, voce mes- 
mo, a gama de possiveis utilizacoes que 
o Creator ou o Producer podem ter para 
urn usuario ou programador. 



* * * CADASTRO DE UTILIDADES DOMESTICAS # * » 

Entrar dados <E> 

Listar urn registro <L> 

Vpnf irar todos OS registros < V > 

Atualizar um registro <A> 

Retira um registro <R> 

Iniciar um arquivo <I) 

Sa i r do programs* <S> 

Entre a letra escolhida- nao e' necessario usar RETURN 

Para voltar ao menu sem gravar as entradas ou alteracoes entre 

* em lugar de um campo. 



Figura 5 - Este menu e a primeira tela do programa gerado pelo Creator (no caso, o programa- 
exemplo Cadastro de Utilidades Domesticas). Veja a figura 7 (tela do programa gerado pelo 
Producer), que £ uma tela criada pelo usuario, ao seu gosto pessoal. O Creator nab permite a 
criacdo de telas prdprias; todos os programas gerados terdo este menu, sd variando o tftulo. 



£' este?(Por favor entre S se est i ver correto) 






Item:COLHER 


Campo M 


i 


Descr icao:COLHERES DE CHA ' 


Campo M 


2 


Quant idade: 12 


Campo tt 


3 



Figura 6 - Quando pedida a opcdo LISTAR UM REGISTRO (L) do menu do programa gerado 
pelo Creator, apds digitar o campo-chave. aparece esta tela. Observe que ate nesta etapa, ao ro- 
dar o programa gerado, sdo emitidas mensagens para checar se o registro mostrado 6 o que se 
quer. Esta pergunta £ importante principalmente quando seu arquivo tern vdrias palavras-chave 
iguais. £ o caso deste programa-exemplo: existem vdrios campos<have COLHER, com campos 
secunddrios (descricao) que os diferenciam entre si (COLHERES DE CHA, COLHERES DE 
SOPA, COLHERES DE SOBREMESA etc.}. Deste modo, se ao chamar COLHER o programa 
mostrar as DE SOBREMESA e voce quiser as DE CHA, basta responder N d pergunta que en- 
cabeca a tela, e o programa ird mostrar sucessivamente todos os registros cuios campos-chave 
sejam COLHER. 



Uma produqdo 
do Creator 

TTste programa, desenvolvido a partir 
H de uma versao em Portugues do 
Creator, pode ser usado por voce para 
relacionar os pertences domesticos de 
sua residencia ou ainda de uma casa que 
tenha incluido no aluguel alguns bens 
pereciveis. Veja na figura 5 a primeira 
tela desse programa, que mostra o menu. 



O programa-exemplo chamado LAR 
aceita o maximo de 200 registros. Cada 
registro tern o tamanho maximo de 54 
bytes e 6 composto dos seguintes cam- 
pos: 

• Campo n9 1 - ITEM - Aqui voce 
define, em ate 16 caracteres, o uten- 
sflio a arquivar de forma mais geral. 
Por exemplo: se existem varios tipos 
de prato, nesse campo voce deve digi- 
tar apenas PRATO. Veja outro exem- 
plo na figura 6. campo n? 1 seii o 
campo-chave do arquivo. 



• Campo n9 2- DESCRICAO - Nes- 
te campo especifica-se mais o item 
armazenado, com descricSes do tipo: 
PRATO DE SOPA, PRATO DE SO- 
PA DE PORCELANA INGLESA etc. 
A descricao nao deve ultrapassar 36 
caracteres. 

• Campo n9 3 - QUANTIDADE - 

Em dois caracteres numericos, voce 
deve definir o niimero de itens. Este 
campo e" armazenado na forma PI 
(inteiro compactado). 



Cadastro de Utilidades Domesticas 



1 REM «•»■.»» NOME DO PROGRAMA:LAR/BAS«»««ii« 

2 REM MWHHtMOME DO ARQUIVO DE DADOSiLAR/OATsO«»«»«» 

3 REM ■••aaaOPADOS NA UNIDADE0»»»#«» 

4 REM »«»«»» famanho maxiao do arquivo e' 200 Reg j st ros»»»«»» 

5 REM »»«»»«Ta»»nho do registro 54 Coapact ado A por setor»»»»»» 
10 REM Troca discos - Reinicio aqui 

20 CLEAR 3000 

30 0PEN"R",1,"LAR/DAT:0'" 

40 0NERR0R00T025001 

50 DIMFSC22),G*(22) 

60 FIELD 1.16AS F*(1),36AS Ft(2>,2AS F*(3> 

70 FOR 1=1 TO 22:G»<I>="":NEXT:FC=0»UF»0:G*-""ICLS 

BO PRINT" * » * CADASTRO DE UTILIDADES DOMESTICAS « « ■■ 

90 PRINT 

100 PRINT-Entrar dados <E 

>" 

110 PRINT"listar um registro 

<L>" 

120 PRINT"Wer if icar todos os registros 

<W>" 

130 PRINT"»tual iaar ua registro 

..<A>" 

140 PRINT"Retira ua registro 

<R>" 

150 PRINT"In ic iar ua arquivo <I 

>" 

160 PRINT"Sair do prograaa <S 

>" 

170 PRINT"Entre a letra rirolhida; nao e' necessario usar RETURN 



180 PRINT"Para voltar ao aenu sea gravar as en'.radas ou alteraco 

es entre • ea lugar de ua caapo." 

190 AN*=INKEY1UF AN*=""THEN 190 

200 IF AN*<>"E"AND ANSO"L"AND ANS< >"A"AND ANSO"R"AND AN»<>"I"A 

NO ANSO"S"AND AN*<>"V"THEN 60 

210 IF AN*-"E"THEN 1000 

220 IF AN*-"L"THEN 10000 

230 IF AN*-"V"THEN 35000 

240 IF AN*="A"THEN 11000 

250 IF AN*«"R"THEN 12000 

260 IF AN*="I"THEN 32000 

270 CLOSEiNEU 

1000 CLSiREM ••«««» Inicia entrada "•»««• 

1005 FC-FC+1 

1006 ONFCGOSUB 1010, 1060, 1100 

1007 IF FC< 3 THEN 1005 ELSE 1180 
1010 PRINT"Diglte o itea>" 

1020 LINE INPUT 0S(1>HFG*< 1 )-"«"THEN 60 

1030 IFG*(1)=""THEN PRINT"»«« ITEM INWALIDO «««"iG0T0 1010 

1050 RETURN 

1060 PRINT"Descr«va o iteal" 

1070 LINE INPUT G*<2):IFG*< 2 )»"«"THEN 60 

1090 RETURN 

1100 PRINT"Digite a quant idade:" 

1101 IF UFOO AND 0*"""THEN G»- G*(3> 

1110 LINE INPUT GS(3>HFG*( 3 )-"»"THEN 60 

1111 IF UFOO THEN Gl-INSTR <GS(3) ,'* + ">: IFG1 >0THEN GZ»CINT(UAL(G* 
<3) )+VAL(G») ) IG*<3)=MID«<STRS<GZ> ,2+SGN<GZ>/2) 

1112 IF UFOO THEN Gl-INSTR(GtO) ,"-") t IF Qi>0 THEN GZ»CINT(-UAL 
( G« ( 3 > ) +VAI ( 0* > ) I fit < 3 ) -M 10* < STR * ( GZ » . 2+SGN ( OX ) /2 ) 
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1120 IF ABS(VAL(GS(3>>)>32767 THEN PRINT"Nuaero auito grande. Te 

■ que «er de -32767 a 32767.": GOTO 1100 

1130 IF INT(VAL<GS(3)>X>UAL<GS<3>>THEN PRINT"Tea que ser nuicro 

int»iro."«G0T0 1100 
1140 IFVAL(GS(3> > >32000THEN PRINT"*" QUANT1DA0E MUITO ALTA »«»" 
tGOTO 1100 

1150 IFVAL(GS(3> XOTHEN PRINT"««» GUANT10ADE INVALIDA •««":G0T0 
1100 

1160 G«(3)»MKI*(UAL<G$(3) > ) 
1170 RETURN 

1180 ?7% = GK1>:G0SUB 26000 

1190 REM»»-«-« Procura espaco p/ registro »"•»«« 
1200 GOSUB 1210 tGOTO 1260 
1210 RP-RP + HIF RP> 200 THEN RP-1 
1220 RX-(RP-i)/ 4 +1»PZ-<RP-1 >-(RZ-l >» 4 
1225 FIELD 1, 54 «PZ AS DXS, 54 AS ZYS 
1230 GET l.RZHF ZYS <CHRS(250> THEN 1210 

1240 FIELD 1,54-PZ AS TXS.16AS FS(1),36AS FS(2),2AS FS<3> 
1250 RETURN 
1260 FOR K-l TO 3- 

1270 LSET FS(K)-GS(K>:NEXT: PUT 1,RZ 
12B0 PRINT "Voce ja ' terainou ? <S/N>" 
1290 TMS=INKEYS:IF TMS-""THEN 1290 ELSE PRINT TMS 
1300 REM«»» Se tcrminou. fia. Se nao retorna ao «enu »•» 
1310 IF TWO'S" AND TMSO"N" THEN PRINT"Por favor, responda~;"S 
"t" ou ","N"IG0T0 1280 
1320 IF TMS-"S"THEN 60 
1330 FOR 1-1 TO 22:GS(I>- 



:NEXT I «FC=0:UF=0:CLS.-G0T01000 



10000 REM 



10010 CLSsGOSUB 27000 



Rotlna de verificar registros «« 



'Tenta achi 



reg i st r 



10199 REM «»•»»» Descoapacta os registros no arquivo para aprese 
ntar «»»»»» 

10200 G0SUB28000 

10799 REM«»»»«« Apresenta o registro se a chave for igual -"»« 
»m 

10800 GOSUB 29000 
10860 GOTO 60 

11000 REM •«•««• Rotina de atualizacao 
11010 CLS: GOSUB 27000 



MH 
'Tenta achar 



o registr 



11199 REM««««»» Descoapacta os caapos no arguivo para apresentar 

11200 G0SUB28000 

11799 REM •»»«•» Apresenta o registro se a chave for igual »"«»» 
» 

11800 GOSUB 29000 

11810 PRINT"8ual e' o nuaero do cinpo gue voce guer atuallzar?" 

11820 INPUT UF 

11840 IF UF> 3 OR UF<1 THEN PRINT "Caapo ilegal":G0T0 11810 

11860 ON UF G0SUB1010,1060, 1100 

11865 RZ-(RP-l)/ 4 + HPZ-RP-1-(RZ-1>» 4 

11870 IF UFO 1 THEN 11900 ELSE ZZS=GS( 1 )IFIELD1, 54 «PZ AS DX 

S, 54 AS OLStLSET DLS »STRINGS(255,250> :PUT 1,RZ: G0SUB26000 

11890 GOSUB 1210 

11900 REM«»»««" Saida *-«««« 

11903 IFUF< >3THENG*(3>=MKI«<WAL(G»(3)>) 

11995 FIELD 1,54-PZ AS TXS.16AS FS(1>,36AS FS(2),2AS FS(3> 

11998 REM»««» Insere caapos alterados no registro e envia «««» 

11999 FOR I-1T0 3 ILSET FS( I >«GS( I > :NEXT :PUT i,RZ: GOTO 60 

12000 REM ••»«»•«« Retirada de registro ««»««« 

12010 CLS: GOSUB 27000 'Tenta achar o registro 

12199 REM»»»»"« Descoapacta os canpos do arguivo para apresenta 
r •«•■•« 

12200 G0SUB28000 

12799 REM««"""" Apresenta registro se a chave for igual -«««»• 

12800 GOSUB 29000 

12900 REM»«*« Apaga codigos escritos em todos os caapos • ««" 
12905 RZ-(RP-l)/ 4 +1 :PZ = < RP-1 ) - < RZ- 1 ) • 4 

12910 FIELD 1, 54 «PZ AS DXS, 54 AS DLSl LSETDLS-STRINGS(255,25 
0)lPUT l.RZiGOTO 60 

22001 DATAIteaJ 

22002 DATADescr icao: 

22003 DATAGuant idade: 



2500U REM ««»"»«R0TINA DE ERR0»"»-«" 

25001 IF ERL<10000 AND ERD1000 THEN PRINT"Erro provavel nas val 

idacoes de caapos" 

25010 PRINT"Erro encontrado na linha"jERL 

25020 PRINT"Erro *«", ERR/2+1 :CL0SE :RUN 

25999 REM»»"»«» Algoritiao de Hashing ««-"«« 

26000 FOR ZZ-ITOLEN(ZZS) 

26010 XM-XII + ZZ«ASC(MIDS(ZZS,ZZ,1>> 

26020 NEXT ZZ 

26030 X*«Xt»«Xt!«XH:X*=STR*<Xtt>:RP=v-AL<MIDS<XS,5,4>>iXH-0 

26040 RP- 200 -RP/9999: RETURN 

27000 REH««»»-» Procura registro «»»-«« 

27010 GOSUB 1010 :KFS=GS( 1 ) 

27020 OS-0 

27030 ZZS»KFS«G0SUB26000 *va I a rot.de hashing pegar pos. 

27040 RP-RP + 1UFRP) 200 THEN RP-1 'mo achou? volta p/ 111 

27045 RZ-(RP-l)/ 4 +1 :PZ-(RP~1 >-(RZ-i >■ 4 

27046 FIELD 1,54"PZ AS TXS.16AS FS(1),36AS FS(2),2AS FS(3> 

27047 IF OS-1 THEN GET 1 ,RZ:RETURN 

27050 GET 1,RZ:IF LEFTS(FS( 1 > ,LEN( ZZS > )=ZZS THEN RETURN 

27055 FIELD 1, 54 »PZ AS DX*, 54 AS ZYS:GET 1,RZ«IF ZYS-STRINGS 

( 54 ,255) THEN PRINT"Reg I st ro nao local i zado."JRUN 

27057 FIELli 1,54-PZ AS TXS.16AS FS<1),36AS FS(2>,2AS FS(3> 

27060 GOTO 27040 'Nao, tenta proxiao. 

27999 REM««"-»« Descoapacta os caapos do registro «««••• 

28000 GS(1)=FS(1> 
28010 GS(2)-FS(2> 

28020 GS(3>=STRS(CVXFS(3>>> 

28998 RETURN 

28999 REH-«««»" Apresenta registro encontrado »«»••« 

29000 CLSSIF OS-0 THEN PRINT"E' este?(Por favor entre S se estiv 
er correto)" 

29010 FOR I=1T0 3 

29020 READ RS:PRINT RSj":"»GS( I > • TAB (50) ; ("Caapo H",I 

29030 NEXT: RESTORE 

29035 IF OS-1 THEN RETURN 

29050 ANS=INKEYS:IF ANS=""THEN 29050 

29055 IF ANSO"S"THEN GOSUB 27040:GOSUB28000:GOTO 29000 

29999 REM-»««»» Ualidacao de caapo nuaerico •»»»»» 

30000 CD-INSTR(CDS,CHRS(32>)HF CD>1 THEN CDS-LEFTS (CDS, CD-I )+MI 
DS(CDS,CD+i)«G0T030000:ELSE IF CD-I THEN CDS=MIDS(CDS ,2) :G0T0300 
00 

30002 CD»INSTR(CDS,"-"):IF CD>0 AND INSTR (CD+1 .CDS, "-") >0 THEN E 

-II RETURN 

30005 F0RZZ=1T0 LEN(CDS) 

30010 IF MIDS(CDS,ZZ,1X"0"0R MIDS(CDS, ZZ, 1 ) >"9"THEN IF MIDS(CDS 

,ZZ,1X)"."AND MIDS(CDS,ZZ,1X>"-"THEN E-H RETURN 

30020 NEXT ZZ 

30030 RETURN 

30999 REH«-»« Ualidacao de caapo alfabetico »•«- 

31000 FOR ZZ=1 TO LENCCDS) 

31010 IF(MIDS(CDS,ZZ,1X"A"0R MIDS(C0S, ZZ, 1 ) >"Z")AND MIDS<CDS,ZZ 

,l)OCHRS<32) THEN E-lsRETURN 

31020 NEXT ZZ 

31030 RETURN 

32000 REM »»»»««Inicia o arguivo HASHED»«»««* 

32010 PRINT"Todos os dados anteriores, se exist irea, serao destr 

u idos. " 

32020 PRINT"Para continuar, pressione a tecla C" 

32030 ANS-INKEYS:IF ANS-""THEN 32030 ELSE IF ANS< >"C"THEN RUN 

32035 PRINT"Ua aoaento, por favor." 

32040 FIELD HI, 255 AS AZS.l AS DZS:LSET AZS=STRINGS(255,255) « LS 

ET DZS-CHRS(255> 

32050 FOR 1=1 TO 50 :PUT1 , I :NEXT:RUN 

35000 FOR K=0 TO 199 :RP=K I0S-1 :G0SUB27040 

35005 FIELD 1,54*PZ AS TXS.16AS FS(1),36AS FS(2).2AS FS(3) 

35010 IF FS< i ) > CHRS1249) THEN 35990 

3S050 GOSUB 28000:REM Descoapacta para aostrar 

3596U GOSUB 29000:RFM Nostra 

35970 FOR J=l TO ?000:NEXT J:REM Espera Ua pouco antes do proxiao 

35990 NEXTK:G0T0 60 




Estabilizador Ekatrdnico 



mini 



Prolecao ultra-rapida contra vanacdes 
da tensao da rede em ate ± 22% 
■~ estabilizando-a em + 1%. 

Capac idade de 
25. 4. 0.6. 0.8 
el KVA. 




Gerador Eletr6ntco 

GERATRON 

Ouando a rede eletrica faltar. GERATRON 

contmuara alimentando o seu micro como se nada 

houvesse acontecido. m ■»■" ' " 

Capacidade de 200 VA 

continuamente 

e 500 VA de pico. 

Bateria interna 

com autonomia 

de 90 minutos 

a plena carga. 

R. Dr. Gamier. 579 - CEP 20971 - Rocha -TeisTPABX (021) 261-6458 





Linha Especial para Micros 

Protecao completa para o seu micro, 
mantendo a alimentacao altamente 
estavel e sem interrupcao Forma de 
onda senoidai Capacidades de 0.25. 0.4. 
0.6. 1.15. 2.5. 3.5 e 5 KVA. Opera com 
quatro baterias comuns de 12 volts. 



GUARDIAN 






EQUIP. ELETHON. LTOA. 

- Direto 201-0195 • Telex rr? (021) 34016 - Rio de Janeiro - RJ 

Representante Sao Paulo - Tel.: (01 1) 270-3175 • Representantes em todas as capitals 




PROGRAMAS QUE ESCREVEM PROGRAMAS 



Uma criagdo 
do Producer 



Oprograma-exemplo, chamado Ca- 
dastro de Bens, foi desenvolvido 
no Producer original, em Ingles. Ele ser- 
ve para criar um arquivo com todos os 
dados relativos aos seus bens pessoais, 
desde im6veis ate" d61ares. Veja na figura 
7 a primeira tela gerada pelo programa. 

registro desse arquivo aceita um 
maximo de 128 bytes, sendo alguns de 
controle do rndtodo de acesso utilizado 
e os outros dispostos nos seguintes cam- 
pos: 

• 19 campo - NATUREZA - Ele deve 
especiflcar, em ate" 12 caracteres, 
qual o tipo de bem, como A^OES, 
APARTAMENTOS, JOIAS etc. 

• 29 campo - REFERENCIA - Defi- 
ne melhor a que bem voce esii se re- 
ferindo. Por exemplo: se a natureza 
for APARTAMENTO, a sua referen- 
da pode ser o endereco do im6vel. 
Esse campo pode ter o tamanho mi- 
ximo de 25 caracteres. 

• 39 campo - MONTANTE - £ o 
mimero de bens que voce possui da- 
quela natureza. Tern ate 5 caracteres 
numericos. 

• 49 campo - UNIDADE - Valor uni- 
tario do bem descrito. Pode ter ate" 9 
caracteres nume'ricos. 

• 59 campo - OBS - Neste espaco vo- 
ce pode fazer qualquer tipo de obser- 



CflDflSTHQ DE BENS 

Programa teste criado pelo PRODUCER, no CPD da MICRO SISTEMRS 



^^^~ OPTIONS MENU 
<i> (D)ELETE R RECORD 
<2> (S)ERRCH FOR ANY 
<3> (R)EPLACE A FIELD 
<A> (B)RTCH ADDITION 
<5> <E)XIT TO MRIN MENU 



^1 

KEY 

° I 

MODE I 

ENU 



^^— FILE STATUS "■"■■ 
LRST RECORD ACCESSED- >4 

• ACTIVE RECORDS >23 

# DELETED SLOTS OPEN->0 

FILENAME >BENS/DAT 

ERROR STATUS—) 



PRESS NUMBER BY MENU CHOICE 



<?> 



Figura 7 - A primeira tela do programa gerado pelo Producer, no caso o programa-exemplo 
Cadastro de Bens. 



CRDRSTRO DE 



BENS 



Natureza: RCOES 
Re+erencia: BRNCO DO BRRSIL 



Montante: 1000 Unidade: 70.00 
Obsi CORRETORR DE VRLORES POUPE LTDR 



RLORI 

70000.001 



> *** WRITING »** 



Rnotacoes ou observacoes genericas. 



Figura 8 - Esta 6 a tela gerada pelo programa Cadastro de Bens ao se selecionar a opcdo (2) 
SEARCH FOR ANY KEY do sen menu. Ao contrdrio do Creator, no Producer todas as telas 
tern que ser produzidas pelo usudrio. 



vacao, como HERANCA DAQUELE 
TIO RICO, PRESTACOES SENDO 
AMORTIZADAS PELO FGTS etc, 
desde que na"o ultrapassem 58 carac- 
teres. 



Existe ainda um campo chamado 
VALOR, que apresenta o produto do 
MONTANTE pela UNIDADE. 
Veja, na figura 8, um exemplo de um 
registro do arquivo criado. 



Cadastro de Bens 



1 oo p ?2^ B 2Si.-^? /2 3iS^;I^.? f 5 DtJCER prosrpm writer mpin module(oi983 by softwpre 

OF THE FUTURE.. DISTRIBUTED BY TEXPS COMPUTER SYSTEMS 

10 REM ••• PROGRPM NOME - CRDP8TR0 DE BENS 

11 'CREATED BY RENATO OEGIOVPNI ON 10/07/8* 
IS B-PEEKI-108) IN-PEEK(-31> 

SO CLEQROlCLEOR MEH-*300lDEFINTP-2lDEFDBLM 

32 0NERROR6OT06900'PLL ERROR TRPPS 

3* DIHP»,I«,x,H,Y,F,PU«,FX»,C8,PF,LP,I3,Cl»,PU,FZ,FS«,FX,FY,P.U3.F8.C0«,CP,FL,Z, 
«»,P3,NF,DS,Z6.RF.TRa,Z3,Z7,FL«,DU«.Bl«,B2»,B3,21».B9.PR«,EN.KF,B6.XZ,F0,EF,K2. 
0e,FZa,S3,B*,S»,S*,J,Nl,RF*,TTt,F0«.E9a,G3*,RE* 

33 DIMSF.RN.SC»,Z0,LI.DL,II,RE,CP.B3».B*»,B3»,BRa,ER»,RR»,BD».LT,SG,TV«,ei».G2», 
G*«, Z3,PW,CE.T2», ED. XX, DSt ,B7, T2.RC .BD.PSt, 81,02, El». NR, 10, PO», GT ,01 ,D3,FGt, QM . 
EZ»,PL.Hl,H2,H3.L«,EG.P,Xl,IPa.,Z*,PG,XX»,CP«.B3.B0.Bl,28 

36 DIMZ1,RR,n«,l1,L2,L3,L*,X6 

*0 DIM Pa < 35 ) ,C»< 33) ,0(33.3) ,30(33) ,PQ»( 33) ,0(33) ,BT*<33) , T»(3S> .RS( 16 > ,RM» ( 10) , 

KE»(10> ,6*(33), 68(200) iSC*--DSRBE-iCS-8iFS-30iPR»---"lSOT047 

pr i NTto , "SS^ ~ SEa^aSS SS a^a^a^ZI 



*3 PRINT-Proaraiaa taata criado palo PRODUCER, 



CPD da MICRO SI8TEMRS 
"I 



** PRINT" 
•3 MEM 

*6 PRINTCHB»(31) llRETURN 

*7 CLSlQOSUB*l'DISPLPY TITLE 

30 ir FZ»--" THEN FZ*-"BENS/DPT" 

31 PRINTe312,--|lPRlNT-NOME OF YOUR DOTP FILE (DEFPULT-- |FZ«I " I — > - I ILINEINPUTFZ 
• 

32 IF FZ«--- THEN F;»-"BENS/DQT- 

53 PRXNT«31Z.CHR»(3l>l"aaa STPNDBY— CHECKING FOR P FILE CPLLED— > " I FZ» I " aaa"|iP 

RINTtO,--| 

3* 0PTP32717, -6902. 6. 9038, 90S*. -3290. 11017, -18367, 23**, 823*. 8382,3332.6187,-7693 

,-l3967lF0RX-0T01*lREPDRS(X>iNEXT 

53 CB"OB « FS-30 1 PR«-CHR» ( 0*5 ) 'FLP8H RPTE I. PROMPT 

40 OEFFNCP>236aPEEK(16*17>aPEEK(16*16>-13360lPOKE16*l9,l*3lEl«-"aaa BOUNDPRY LIM 

IT ••• "iE2«-"«« ILLEGPL CHPRPCTER •••" iE9»-STRING«(28, 191 1 ♦STRING* (28, 8) iDEFF 

«»(P)-RIBHTt(STR«(P),LEN(8TR»(P))-l> 

48 C0»-Cl««<13i«CMP»(6'.)»STRING»(2,8)»CHR«(9).CHR»c91 )-CHP«< 10) -CHP« i 2* ) ♦CHRa C2S 

)*CHR«(31)*CHR*(27)»CHR*(7)*CHR«(61) 'INKEY CODES 

76 KE»(1)»- nBCDEFGHIJkLMNOPQRSTUVUIVZ'aaXt' <)•!-< >^, ./|. 123*367890- 'KE»(2)-"012 
1*36789 ♦-."!KE»(3>-"YN " IKE«( * )-CHR» ( 13) ' INKEY RESTRICTIONS 

77 KE«(3)-~-iKE«(6)>--iKE«(7>>"iKE*(8>-'-iKE*(9)--"l 

IS 83-HS*-3"RC-128lEM-708iNF-3iDS-liDl-83*>D3-898i0L-39 SYSTEM PPRPMETERS 

)6 'INKEY DPTP 

97 DPTP12.266.1.23.332.1.3.*3a,2,10,*73,2.38,381,l,13,*33,2iKF-liK2"2 



90 F0RX-1T0NF*DS>REPDD(X,1) ,D(X,2>,D(X,3MNEXT 

99 GOSUB160i00SUB9300iCL0SE<G0T0l320'8O MENU 

103 F0RX-lT0CS>I««INKEY»lIFI»()""THENPRINTCHR»(13)(lRETURNELSENEXTlPRINTCHR»(l*) 

I IFORX-1TOCSII«»INKEY»HFI»( I --THENPRINTCHR«( 13) I lRETURNELSENEXTlPRINTCHR»< 13) n 
B0T0103 

109 'SEPRCH TESTS 

1 10 IFTR»-FO»THENFO— 1 ' RETURNELSEFO-O ' RETURN 

111 IFTP«(F0»THENF0— HRETURNELSEFO-OlRETURN 

112 IFTP«)FO»THENFO— 1 • RETURNELSEFO-0 i RETURN 

113 IFIN8TR(C«(00),TR«) >OTHENFO— 1 1 RETURNELSEFO-0 1 RETURN 

I I * IFTPOT V»THENFO— 1 1 RETURNELSEFO-0 1 RE TURN 
113 IFTP«(TVtTH£NFO— 1 IRETURNELSEFO-OIRETURN 
116 IFTP«)TV»THENFO— 1 IRETURNELSEFO-OIRETURN 

120 FIELD 1.2 OS B11.2 PS B2t>12 PS Ct(l),23 PS C»(2) ,3 PS C«(3),10 PS Ctl*),38 
PS C»(3),13 PS C»(6).0 PS Dua.l os fl»i return 

129 'aBTREE SUBROUTINES* 

1*0 FIELDl,2PSB3«,2PSB*t,2PSB3*,2PSBR*,2PSBD*, (RC-10)RSDS»|RETURN 'ROOT FIELD 

130 'OPEN FILE 

160 OPEN-R-,1 ,FZ»,128 

170 GO8UBl*0lGETl,llZ3-CVI(B3«)lB6-CVI(B3*)lB7-CVI(8**)lB9-CVI(BR«) iBD-CVKBDO I 

RETURN 'SET ROOT INFO 

180 'GET P RECORD 

190 G0SUB120' FIELD BUFFER 

ZOO 6ETl,Z3i83-CVI(Bl*)iB*-CVI(B2*> 'GET LINKS 

210 21»-C«(KF)iTT»-C»(K2l IRETURN 

220 'PUT IN BUFFER 

230 FOR X-l TO 6ILSET C»( X )-P»( X ) INEXT XIL8ET FL*--»" 'LSET RECORD 

2*0 RETURN 

230 'UPDPTE ROOT 

260 G08UB1*01LSETBD»-HKI«IBD> 1LSETB3»-MKX»(Z3) ILSET8*»-MKI»(B7) IL8ETB3*-MKI«(B6) 

ILSETBR»-MKI»(B9)ILSETDS»--THE KEY RECORD" ♦STRING* (73, "a- ) iRETURN 

270 'WRITE EDITED RECORD 

280 PRINTtEM,E9»l"a UPDPTING EDITED RECORD • " I i GOSUB 1 60 ' OPEN 

290 GOSUB 120 1 GOSUBZ30' FIELD 1 LSET 

300 LSETB1*-MKI*(B3)ILSETB2«-MKI*(B*) 'LSET LINKS 

310 PUTl,20lCL0SElRETURN'HRITE RECORD 

330 'aaBTREEl PDD 

3*0 GOSUB160UFBD( >0THENZ3-BD>GOSUB190l BC-B3ELSEBC-0 

3*1 Z3-Z3lIFBD( >0THENBP-BDiBP<--"BD"ELSEBP-B9iBP«-"B9" 

3*2 G0SUB190lIFTP«)21«THEN3*3ELSET3«-TP«*8TRING«(LEN(Zl«)-LEN(TP«),32)lT*«-T2«^S 

TRING»(LEN(TT»)-LEN(T2») .32) 

3*3 IFZ1«-T3»THENIFTT«-T*«THENIFB6( )OTHENPRINTtEM, E9«l "PLREPDY IN FILE" I iFORH-lT 

0300 iNEXTHl CLOSE iRETURN 

3** IFB3-0THENLSETB 1 »-MK I • ( BP ) I PUT 1 , Z3 I G0T03*6ELSEZ3-B3 I G0T0342 

3*3 IFB*-0THENLSETB2«-MKI«(BP) IPUT1 ,23lG0T03*6ELSEZ3-B*iG0T03*2 

3*6 LSETB1«-MKI»(0) ILSETB2»-MKI«(0> > GOSUB230 1 PUT 1 . BQ I B6-B6-1 IB7-B7^1 1 IFBR»--B9-T 
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HENB9-f««lELStlrBO»--BD"THENBD"BC 

3*7 ROSUP-60 1 PUT 1 .1 s CLOSE I RETURN 

*90 ••BTPEE1DELETION 

300 PPINTtEN,E9»l"« DELETING RECORD • - I lGOSUB160lZ*>Z5iZ3-Z31G0SUB190l IFTO 

• ( )Zl«THEN3*ZELSElrTT«< >T2»THEN3OZELSEirB3»OOND&<i":>THENZS-Z*>G0T0;i':>ELSEIF&<.-OTH 

ENZ3-B3 ' G0T0310ELSEIFB3-0THENZ3-B* ■ G0T0310ELSEB1 "25 ■ Z5-B* ■ Z3-o 

501 irZ*"0THENCLOSElPETUPN 

502 Z3-Z*iG0SUB190iB3»CVI(Bl»>iB0-CVIIB2a)iIFTQ»-Zl«THENIFTT»-T2«THENS0*ELSE81-Z 
*iZ8-llZ*-B5iG0TOSul 

503 Bl-Z*i IFT0»lZl»THENZ8-l lZ*"B5lGOT0301ELSEZ8-OIZ*-BOiGOT0301 

SO* IFB5-0THEN307ELSEirB0-0THEN3O9ELSE23-81lGOSUB190lIFZ8-0THENLSET82«-MKI»(B0>E 

LSELSETBlt-MKlaiBOl 

503 PUTI.Z3I2-BO 

506 33-ZiGOSUB190lZ2"CVI(81»)HFZ2( >0THENZ-22lGOTO3O6ELSELSETBl»-MKI»< B3) IG0T031 


507 IFB0-OTHEN3O9ELSEZ3-BllGOSUBI9OiIFZ8-0THENLSETB2«-HKI«(8O)ELSELSETBl»-MKI»(8 
01 

306 G0T0310 

509 Z3-BllGOSUB190iIFZ8-0THENLSETB2»-HKI«(B3)ELSELS£TBl»-MKI»(B3> 

5X0 B6-B6-llPUTl,Z3IZ3-Z*lG0SUB190lLSETFLt."-"iL3ETBl»-MKI»(BD) IPUT1 ,Z3l BD-23180 
. SUB260 ■ PUT J ,1 'CLOSE l RETURN 
720 '••BTREEi SEARCH 

730 F0-0lS»-""lGOSUB160iIF86-0THENF0-0lRETURNELSET2..1iIFLEN(T2»>-0ORLEFT»(TZ«,l> 
-- "TMENTZ-0 

731 GOSUB733HFZ3-0THrNCL0SElRETURN 

732 GOSUBl**OlZ0-Z3HFT2-0THEN73*ELSEIFLEFT»(TTa.,LEN(T2»> l-T2»,THENCL0SElF0— 1 IRE 
TURNEL S EGOSUB737 

733 IFZ3-0THENCL0SEIRETURNELSE732 

73* GOSUB1300I IFS»-"Y"THENFO— 1 ICLOSE IRETURNELSEGOSUB7371G0T0733 
733 Nl"LEN(TO»> 1Z3-Z3IG0SUBI90 

736 IFTA»>LEFT»<Zl»,Nl)THEN738ELSEIFTa«.LEFT»(Zl»,Nl)THENRETURN 

737 IFB3< >0THEN23-B3i80SUB190iG0T0736 

738 IFB*( >0TH£NZ3»B*iGOSU8190lG0T0736ELSEZ3-0>RETURN 
960 'INKEY ROUTINE 

1000 CE'FNCPlPftINTtEM,E9*IElti:F0RX-lT02*3lNEXTXlPRINTtEH,E9tiE9*l l6OSUBl*O0iPRI 
NTtCE." I IRETURN BOUNDARY ERROR 

1010 CE-FNCPlPPlNTtEM.E9«lE2a|IFORX-lT02*SlNEXTXlPRINTtEM,E9»lE9»| I OOSUB 1 *00 1 PR I 
NTtCE, ""IIRETURN'ILLEGPL CHAR ERROR 

1012 A*.(PF)-A».iPRINTtEM,E9»l"FIELD NUMBER? "HGN-PF 

1013 G0SUB3070HFAK )CHB»( 13>THENPRINTA»| 1 8N»-3N».n» I GOT01013 

101* IFVBL(ON») <Sr ORVAL(GN»> >EFTH£NGN»»-"lGOSUB1000lPF-GNIGOT011*0EL8EPF"VOL<GN 
•>lA».--lON«"""lPRINTtEH,E9«l I GOTO 11*0 

1015 IFF-OTHENPRINTtCP»LR,--|tr-U»El.SEPRINTtCP,--| IF-O 

1016 GOTO 1030 

1018 A»(PF)-OA«(PF) IGOT0U40 

1020 'GET KEY PRESSED 

1030 P0KE16*10,100iPuKE16*12.0i6OSU8103iIFI»--"THEN1030El.SEI3-INSTR(C0«,I»)i0NI5 

GOT01 110. 1190, 1210. 1210, 1230, 1110,1 110, 1230. 1270, 1280, 1013, 1012, 10181 IFIN8TR(KE« 

. 1» ) -0THENGOSUB1010 1 GOTO 1030 

1050 LA-LEN(0a>lIFL0>FL-lANDF>LA-lTHENGOSUBl000lG0T01030'CHECK LENGTH 

1070 PRINTI«|IF-F«liIFF(-LOTHENMID«<a«.F,l>-laiGOT01030'DISPLAY I SAVE CHAR 

1090 A»-A«»I»IL0-LEN(O»)lGOT01030'SOVE IN B» 

1100 'NEXT FIELD 

1110 Ot(PF>-Ol'SOVE CLIRRENT FIELD 

1111 IFI3< >6TKENGOSUB6O03lPRINTtCP»F,""l lA»-A»(PF) 'DO CALCULATIONS 
1113 IFI5-1ANDPF-EFTHEN1190 'EXIT (ENTER LAST FIELD) 

1113 IFI5-7ANDPF-EFTHENGOSUB10O0IG0T01030 

1120 IFIS-6ANDPF«SFTHENGOSUB1000lG0T01030 

1 130 IFI5»10RI3-7THENPF-PF»1ELSEPF"PF-1 

11*0 F"OlCP"OIB»»""iI3-0lLO«LEN<B«<PF> I 

1130 GOSUB1*00' OUTSIDE PROCESSING 

1170 KE»-KE»<D(PF,3> ) 1CP-D(PF,2) lFL"D(PF, 1 ) lO»-0»(PF> lPRINTtCP,A»(PF> |CHR»(13I IS 

TRING«(FL-LEN(0»(PF> > ,PR») |CHR«( IS) I IPRINTtCP, "" ICHR«( IS) I 'UPDBTE DBTB 

1173 60T01280 'BUTO PROMPT DISPLAY 

1180 B0T01030 

1190 B«<PF>-fl«lFORX-S3T0S*l0n»<X>-B«(XllNEXTXlRETURN'EXIT INKEY 

1210 F-F-liIFF(OTHENF-F»liBOSUB1000iGOT01030EL6EPRINTCHR«(Z*>|iQOT01030'CURSOR D 

OWN 

1230 F-F«l I IFF)LBTHENF-F-1 lG0SU81000lGOT01030ELSEPRINTCHR«< 25) I iGOT01030'CURSOR 

UP 

1230 IFLA-FTHEN1030ELBER«-LEFT*,(P)«,F>«RIBHT»(0«,LA-F-l>lPRINTtO(PF.Z> ,A*,|PR«|lLO 

•LEN(A»>lPRINTtCP*F,--|lA»(PF>-0«iGOT01030'DELETE B CHBR 

1270 IFLB-FLTHENSOSUB1000iGOT01030ELSEa«-LEFT«(B».Fi* ' "♦RIGHTK A«,LA-F> iPRINTtD 

<PT.2>,Ot.|lLA«LEN(A»> lPRINTtCP*F,""l I Aa,(PF)-A»lBOT01030' INSERT CHOP 

1280 GOSUB I 3*0 I ON PF GOTO *021 ,«*! , *061 .".081 . 4101 

13*0 FORX-DlT0D3STEP6*iPRINTtX,STRING«(DL.32)|lNEXTXIRETURN'BLANK INPUT OREB 

1360 FORX-lTONF»DSlA»(X>--"lNEXTlRETURN'NULL A«(> 

1*00 'OUTSIDE PROCESSING BY USER 

1*38 RETURN 

1**0 FORH-lTONF*D8lPRINTtD<H,2> .C»(H)I INEXTlRETURN'DISPLBY B RECORD 

1300 S»-"-iPRINTtEM.E9»|-!«":FNS»<23> l"> CORRECT ITEM I Y/N ) "" ! I G0SUB105 i S«-I« ■ IF 

S»<)-Y-HNDS«O-N"THEN1500ELSEPRINTS»l IRETURN'IS CORRECT ENTRY? 

1510 'HBIN MENU 

1520 CL0SEl6OSUB*llPRINTt**B,- " |CHR«< 191 I ISTRINGK7, 131 ) I - PROGRAM MENU "ISTRIN 
6«(6,131>|CHP«(191) 

1521 PRINT- "ICHR».(191>|- <1> BDD B RECORD TO FILE -|CHR»<191> 
1322 PRINT- "ICHR«(191)|" (2) EDIT OR DISPLAY RECORD' I CHR»< 191 1 
1523 PRINT- -|CHR((191) I- <3> PRINTED REPORTS MENU "|CHR«(191> 
152* PRINT" "|CHR»(191>|" <*) OPTIONS MENU "|CHR»<191> 
1525 PRINT- -|CHR«(191)I" (3) EXIT FROM PROGRBM "|CHR*<191> 

1326 PRINT- -|STRING»(29,131)>GOSUB80O0lPRINTlPRINT-PRESS NUMBER BY MENU CHOICE 
(■>>-! iGOSUB1327iG0T015*0 

1327 FOR8*>lT0FSlA«-lNKEYtlIFA«( > ""THENRETURNELSENEXTG*lP0KE16283,Z«*lP0KE16286, 
2*3iPOKE16287,2*6lP0KE16283,32iPOKE16286.2**lP0KE16287,2*5lPOKE16288,2*6lPDKE162 
89,60 

1528 R*-INKEY»lIFR«( >"-THENRETURNELSEFOR8*-lT0F8lH«-INKEY»l IFA»( > "THENRETURNELS 

ENEXTG*lP0KE16288.60lPOKEl6289,63lPOKE16283,3ZlPOKE16286.32lPOKE16287,32lG0T0132 

7 

13*0 Z>VAL(OS) 

13*1 XFINSTR(SC»,fl»>>0THEN2-INSTR(SC».O«>lG0T09070 , OPTI0N LETTER 

13*3 IFZ(10PZ)3THEN1520 

1330 IFZ>ZTHEN1370ELSEPRINTt0.--|lGO8U82530 

1370 OOSUB 1360 1 ONZSOSUB 1620, 18*0.5000, 9000, 7000 

1600 BOSUB1360lG0T01S20'RETURN 

1610 'CREATE RECORD 

1620 8F-S3lEF-S*iA«---IPF-SFlIFBQTHENPRINTtEH. "BATCH ADDITION MODE-*" IBBl iGOSUBl 

1*0ELSE00SUB11*0'B0 INKEY 

1630 TA«-A*<KF>:T2»-A«<K2>'KEY 1 2ND KEY 

16*0 IFLEN(TA»>(10RLEFT*(TA»,1)-" "THENCLOSEl IFBOTHEN9300ELSERETURN EXIT NO DOT 

R 

16*5 IFB0THEN60SU89*00lG0SUB1360lPRINTt0.--|l00SU82530lBOT01620 'BOTCH MODE BDDI 

TION 

1630 PRINTtEM.E9»|-«.. WRITING ..." I I IFBQTHENPRINT""" |FI - OF-IBBI 

1660 GOSUB3*0'BDD RECORO 

1663 TA«-""!TZ»»-- 

1670 CLOSE ■ RETURN 

1700 'SEARCH FOR RECORD 

1720 A»--"iPF-KFiEF-KPlSF-KFiGOSUBll*0<IFI»( ) "t"THENO»-" - iPF-K2iEF-K2iSF-K2i0OSU 

B11*0'GET KEY & 2ND KEY 

1729 'TEST UHOT FOUND 

1730 PRINTtEM.E9«|-. SEARCHING FOR RECORD •- I lTA«-A»(KF) iT2»-A«(K2> l IFLEN( TA» ) -0 
0RLEFT»<TA«,1>.- "THENCL0SEIRETURNELSEG0SUB730ICL0SE ■ IFF0ONDN0TEDTHEN3O60EL8EIFF 
0ONDEDTHENPETURNELSEIFS»-"Y"HNDN0TEDTHEN306OELSEIFS».'Y"ANDEDTHENRETURN 

17*0 IF86-OONDN0TF0THENPRINT#.EM,E9»l"N0 RECORDS PRESS ENTER" I IGOSUB3070IRETUR 

NELSEIFS«-'N-THENPRINTtEM,E9»|-N0 MORE MATCHES—PRESS ENTER- I IG0SUB3070 

1730 IFS»--"TMENPRINTtEM,E9»l"N0 MATCH FOUND—PRESS ENTER- 1 IGOSUB3070 

1760 RETURN 

1839 'EDIT RECORD 

18*0 ED"-HGO5UB17Z0iED-0'GET RECORD TO BE EDITED 

18*3 IFS«»-N"OP<S»---BNDNOTrO>THENPETURN'NOT FOUND 




-I IPRINT#2S8, 
-IIRETURN 
JOIAS, DOLOR.": 



:l *d<lulrldo. 



1830 IFLEFT»(Z1»,LEN(TA»> )( )TAiTHENPETUPN RECORD NOT FOUND 

1833 IFLEN(TA«)-OTHENPETUPN'NO ENTRY MADE 

1860 rORX-lTONF«DS>B»lxl-C»(Xl:DEFUSP-VBPPTR(RSI0l ) I JX-USRl VARPTRl A* I t ) )) INEXTX' 

BET INKEY ARRAY WITH CONTENTS OF THE LOCOTED RECORD 

1870 EF-S*iSF-S3iPF-S3iQ»---iGOSUBll*0'EDIT THE RECORD 

187Z FORX-lTONF»DSiQ»(X)-0»iXI«STRING»<DIX,ll-CEN(B«(X) ),32) INEXT 

1873 IFLEFT«10»(KF> .6 > -"DELETE -THEN0OSU819201 T2»-C»(KZ M TA«-Ca(KF > iGOSUBSOOlCLOS 

El RETURN 'DELETE RECORD IF MARKED FOR DELETE 

1880 IFA»(KF>( >C»(Kr>TH£NG0SU892O0lTA»-C»(KF)iT2»-C»(KZ) :GOSUB5O0lCL0SElTA»-A»(K 

F)IT2»-A*(K2> IGOSUB1650lCLOSElR£TURN'DELETE 6 RE-ODD THE RECORD IF THE KEY HAS B 

EEN EDITED 

1890 F0RO3-lT0NF»DSHFC«(A3l-A«(A3>THENNEXTA3lRETURN 

1910 8OSUB280lRETURN'MRITE EDITED RECORD TO FILE 

1920 PRINTt£M,E9» | -DELETE -ARE YOU SURE ( Y/N) " I IQOSUB3070I IFA«-"Y"THENR£TURNELSE1 

320 'SURE YOU HANT TO DELETE 

2330 PRINT -^^B^ia^i^B^HBBMHHaaiHMaB 

2331 PRINT - CRDASTRODEBENS "I 

2332 PRINT " 

2333 PRINT - 
233* PRINT -Natunm 
2333 PRINT "R»«»r»ncll 

2336 PRINT - 

2337 PRINT "Montantaji 

2338 PRINT " 

2339 PRINT -Obmi 
23*0 PRINT - 
23*1 PRINT - 
23*2 PRINT -; 
23*3 PRINT - 
25** PRINT - 

25*5 PRINT -B^i^iMBi^MH^^^^^HB^^M^BHBMHi^Ba^^H aWuPO 

KE 16383. l*3iRETURN 

3O60 PRINTtEM,E9«l "PRESS (ENTER) >"l 

3070 G0SUB105iA«-I*lRETURN' INKEY 

*000 REM 

•001 IFF2( >0THENRETURNELSEFZ-liPRINTtl9*," THE PRODUCER ' 

(CI1982 BY SOTFI - I IPRINTI322, "TEXAS COMPUTER SYSTEMS 

*021 PRINT tS3*, "Dlacrlmina nalta CWDi IMOVEL. CORRO, OCOES. 

*022 PRINT 1898,-POUPflNCO. INVEST IMENTOS. »tc."l 

*023 PRINT ■ CP*F,CHR*(0) |i GOTO 1030 

*0*1 PRINT t83*. "Local one* m BBta' ••tabalacido ou ond« » 

*0*3 PRINT t CP*F,CHR«(0)|l GOTO 1030 

*061 PRINT t83*, "Quant ld*d« do t-»« aspacKlco. - I 

*063 PRINT • CP-F,CHR«<0) I i GOTO 1030 

*081 PRINT t83*. -Valor <to uaa unidad* do b»m tw.ciUco.-i 

*083 PRINT t CP*F,CHR«(0)|i GOTO 1030 

*101 PRINT C83*,'Anotaco«a ou obsarvacoaia «*n«ricas."i 

*103 PRINT I CP»F,CHR«(0) I I GOTO 1030 

*999 RETURN 'REPORTS MODULE BELOW 

3000 NR-llFG«--BENS/RPT"IRM«<10)-"RETURN TO MOSTER MENU" 

3001 RM«(1) --CADAS TRO DE BENS" 

3009 REM 

3010 F0RX-0T030lT«(X)«0lNEXTXlPRINT«**8,CHR*(31 ) I ■ PRINTt**9, STRING* ( 2* . 1*3) I" RE 
PORTS MENU " (STRING* (2*. 1*3) iF0RX-lT03lPRINTt312»<6*»( X-l I ) , " ( "♦RIGHT* (STR»( X ) ,L 
EN(STR»(X) )-!)♦") "»RM*(X> 

5011 PRINTt3**«(6*«(X-l) ) .-(-♦RIGHT*(STR*(X«3) ,1)»-) "♦RM*( X*3) INEXTX 

3013 PRINTt833,STRIN6*(62, 1*3) iPRINTt896, "PRESS NUMBER BY MENU CHOICE (?)"|l 

80SUB1327 

5020 Y«VAL(A*)lRN-YiIFY(lORY)NRTHEN1320 

3023 PRINTt**B,CHR*(3l) !"••• STANDBY FOR DISK OCCESS •••"! 

3030 ON V GOTO 3031 

3031 L«"""lN*--"lPW-6*iPL-66iPS*---lPS*-"-lGl"OlG2-0iLl-0lL2-0iL3-0lL*-0lSG-llE6 
-Ol SOTO 30*0 

3039 RETURN 

30*0 IFGI-0ORG2-0THENS000ELSEIFL*--Y-0RLl-0THENGOSUBS0*l iPRINTI**8,CHR*(31) I IGOS 

UB3600 ■ GOT03*60ELSE3030 

30*1 0PEN"R",I,FG*,23lFIELDl,2OSGl*.2OSGZ*.20ASG3*.10SG*» 

3042 F0RX-SGT0EGiy-»-SG»1 iGETl,xiG(Y)-CVKGl») iGOf YI-CVKG2*) iG»(v.«LEFT*(G3*,IN 

STR(83*«" "," -)-l) iGT*<Y)-G*»iNEXTXiCLOSE 

30*3 rFLEFT*(RM*(RN) ,3>«"LABEL-TMENG0SUB3360 

30*5 PRINTt**8.CHR«(31)|lPRINTt**8,"-|lPRINT"HIT (ENTER) HHEN PRINTER IS READY 

R <t> TO ABORT REPORT " 

30*6 GOSUB3070I IFA»-CHR* ( 6* ) THEN1520EL8E IFO*< >CHR* < 13 ) THEN50*6 

30*7 X-l 

30*8 XX-lNSTR(X,PS*,"l")UFXX( )OTHENZ-VAL(MID»IPS*,X , XX-X ) ) ILPRINTCHR*(Z) I I X-XX* 

HGOT030*8 

30*9 Z-VAL(MID*<P8*,X,LEN(P8*)-X»1 ) ) ILPRINTCHR*(Z) I IRETURN 

3030 FR*-LEFT*(FG*,LEN(FG*)-1)»MID*( "123*36789", RN.DIOPEN-R", 2. FR*. 131 FIELD2.9A 

BR1*,*R8R2* 

3033 GET2,liRZ>VOL(R2«) ICLOSEHFRZ-0THENSO60 

303* PRINTt**8.CMR«(31>!"»» SORTED INDEX FOR THIS REPORT IS ALREADY ON DISKETTE 

IF DATA FILE 19 UNCHANGED FROM LOST TIME REPORT UOS MODE THEN O 

NEW SORT IS NOT NECESSORY 

DO YOU WISH TO SORT? (Y/N) "I 

5055 GOSUB3O70lIFO«--Y"THEN5060ELSEIFA»--N"THEN6OSUB30*liG0T03*39ELSE305* 

3060 PRINT«**8,CHR»(31> I I GO8UB3600 1 GOT03070 

5061 Z-l IRETURN NO RESTRICTION 

3069 RETURN 

5070 GOSUB160lFIELDl,(RC-l)ASRC*,lQSFL» 

3072 OPEN"R", 2, "REPORTS/DAT", 13 IFIELD2,13QSR3»ILSETR3»-FR»IPUT2,1 l L8ETR3»-FZ»iPl 
T2 , 2 I F I ELB2 , 9RSR 1 • . *A8R2» 

3073 R2-3lX7»»" -I80SUB2330 

307* FORX-1T0B9-1 lRSETX7t-STR«(B9-X)IPRINT#EM, "COUNTDOWN— >" 1X7*1 IGET1 , XlZ-Ol IFF 

L»( )"."THEN5089 

5075 Q0SUB120 

5O80 ON RN GOSUB 3061 

3081 IF2-1THENGOSU81**0 

308* FIELD1 . IPC-I JOSRCt, 1ASFL«HFZ( )1THEN3089 

3085 IFN«-"N"THEM4'>VAL(MID«<RC«,L2,Ll>>l6OSUB3100ILSETRlfWB*iLSETR2«-STR«(X)lC 

0T03O88 

S0B7 IFL3-0THEM.SETRl«-MID»(RC»,L2,Ll)IL8ETR2«-STR«(X)ELSn.8ETRl»-HID»(RC».L2,Ll 

)*MID«(RC1,L*,L3) ILSETR2*-STR«(X) 

3088 PUT2,R2iR2-R2»l 

3089 NEXTXIIFR2-3THENG0SUB*llCL0SElPRINTt**8,CHR»(31) l-NO RECORDS PASSED RESTRIC 
TI0N8. PRESS (ENTER) TO CONTINUE" IGOSUB 30701G0T0 5000ELSELSETR1«--000000000" IL 
SETR2»-"0000" IPUT2.R2 

3090 CLOSE IRUN-PRO/SRT- 

5099 REM CONVERT NUMERIC DATA TO ALPHA TOR SORT 

3100 IFOBS(W' ) >-lTMENIFW' )0THENW1«-"D"EL8EW1*>"B"ELSEIFU' )0THENW1«-"C-ELSEW1«-"B 

3102 W«-STR*(U' ) !WU«"STR»iW /1ES) IWB-INSTRI W», "E" I lBW-INSTR( HHBi "E" ) I IFWB( )OTHEN 

W2».RIGHT«(W»,2)ELSEW2»--0-»RIGHT»(STR«(VAL(MID«(MW«,BW»l,3) )*B),1) 

310* irwi»."a"OPWl«--C-THENW21-RI6HT»(STPa(99-VAL(W2») 1 ,2) 

3106 IFWBI >OTHENIFINSTR(W»,".")( )0THENW3»"MID«(H»,2, 1 ) »MID»(W»,* ,WB-*)ELSEW3»-MI 

D»iW»,Z,l lELSEIFINSTR(WW».".-)( >0THENU3«-HID*( WW«,2, 1 ) »MID«( WW* , * , BU-* ) ELSEW3«-M 

ID«(MW«,2il) 

5108 IFWl(>"A-0RWl*>-B-THENH3»-ftIGHT*(STR*(999999-VAL(W3«) ) ,6) 

3110 WB«-W1»»W2»»W3» IRETURN 

3255 REM 

3260 REM ••• SUBROUTINES FOR PRINTING REPORT 

5265 'ONE REC PER LINE 

3270 PE-3iF0RX-lT0GHLPRINTTABlGA(x I ) |C»IG(X) ) I 

3271 IF6T*( < ' ■'V-TMENUl X)-Ta(«i.vOL(C»(G(X) ) l LT«iO)--l 
5272 NEXTX IRETURN 

3273 'MULT LINES 

3280 PE-3iLPRINTSTRING*<PW.*2> iLI-LI«l >rORX-lTOGliGT-LEN(Ga(X> )»LEN(C«(G(X ) ) )»3* 

8TlIFGT)PWTHENLPRINTlGT-LEN(G»(X) )»LENCC»(G( X) ) >*3lLI-LX*l IPE-PE*! 

3283 LPRINT8*(X)I I IFLEN(G«(X ) ) )OTH£NLPRINT"->"l 

3290 LPRINTC»(8(X))I" "I 
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PROGRAMASQUE ESCREVEM PROGRAMAS 



•VAL(C»i 



"T»<0> — 1 



S291 IFGT»<XI-"Y"THENT«!X> 
5295 NEXTX IPETURN 

5299 PUT TOTPLS INTO PRINTOUT FORMAT AND PRINT 

5300 IFT«(0>THENF0RX-1T0SUIF6T»<X>--Y"THENC»IG!X> l-PI6HT»<STP«( T»( X ) !,LEN(STR»< 
T«(X>) >-l)ELSEC«(0lX>>-""ELSES3O3 

5301 NEXTX 

3302 LI-LI.4"LPRINTSTRING»(PU.43>lLPRINT"T0TBLS""LPRINTSTRING»lPW.4S> HFG2-M-PW 
THENeOSUB5270ELSEG0SUBS280 

3303 LPRINTiF0RX-Ll«2T0PL"LPRINT,- -1NEXTX 
5304 RETURN 

3438 REM ••• PRINT REPORT KEYED BY SORT TILE 

3439 P«llPRINTtO,""l iGOSUB253O"P-l"GO5U8160"GOSU81Z0"OPEN"P-.2.FR».13"FlELD2.9RS 
DWiMMM 

3440 LI"OHFLEFT»(Rrtt(RN! ,5>( >"LABEL"THENLPRINT-REPORT •"IRNI". " |RM»(RH>I TABIPM 
-7>|"p.-|P"LI-LI«l IIF62-1<-PWTHENLPRINTSTPING«<PU,4Z)"F0RX-1T0S1 "LPPINTTABtGAl X > 
)|B«<X)|lNEXTX"LPRINTlLPRINTSTPING»<PW,42>ILI-Ll«3 

3443 GET2,R"R1-VAL(R1«I " IFR1-OTHENGOSUB3300" CLOSE IG0T03320ELSEGET1 , PI IG0SUB1440 
3443 GT.O"IFLEFT»(RM»(RN>.3l--LflBEL"THENGOSUBS540ELSEIFG2-l(-PWTHENBOSUB5270ELSE 
G0SUB3280 

3446 LPRINTlLI-LI'l 

3447 IFINKEY«--«"THENCL0SElG0T05S20ELSER-R»l"IFLI*2>PL-PE0PLEFT«<R11»(RN) ,S)-"LBB 
EL"THENF0RX"LIT0PL-11LPRINT,""INEXTX"P-P«1 1GOT05440ELSES443 

3430 REM 

3455 REM ••• PRINT REPORT KEYED BY TRBV 

3460 P"llPRINTtO,""|ieOSUB2330 

3470 B0SU8160lZ7-Z3lZ6-OlX6-0'SBVE ROOT AND NULL ARRAY SAVE COUNTER ••••BTR 

BHm 

5475 LI-0lIFLEFT»<RM*(RN>,5>O-Lfl8EL-THENLPRINT-REP0RT •"IRNI". " IRH»(RN> ITBBIPU 
-7il">."IPiLI-LI*llIFB2-l<"PWTHENLPRINTSTRIN6«CPH.4Z) > F0RX-1T0G1 ILPRINTTBB(GB< X I 
>|S»IX!|1N£XTX1LPRINTILPRINTSTRINB«<PM.4Z)"LI-LI»3 

5476 Z6-Z6»l"B8!Z6>-Z7lIFZ7l >OTHENZ3-Z7i80SUB190iZ7-83"60T03476'BEGIN BTREE FILE 
TRAVERSAL •••BTREE«« 

3480 Z6-Z6-l"IF26-OTHENGOSUB330O"CLOSE"GOT05520'CHECK TO SEE IF UMOLE TREE HAS B 

EEN TRAVERSED 

3483 Z7-B8!Z6J "Z3-Z7lB0SU8190"BOSUB1440'DISPLAY R RECORD 

3489 GT-OlZ-0 

3490 ON RN GOSUB 3061 

3492 IFZ ( > I THEN3310 

3493 IFLEFT«(RM»(RNI ,5>-"LABEL"THENGOSUBS540ELSEIFG2-l ( -PUTHENGOSUB5270ELSEGOSU8 
SZ80 

3303 LPRINT"Ll-LI*l 

3310 IFINKEY«--|-TMENCLOSElB0TO5S20' ESCAPE FROM TRBVEPSE 

3513 26-26-1 "Z7-B4 I IFLI«2>PL-PE0R(LEFT»<RM»(RN) ,3 I - " LBBEL " BND2- 1 ITHENFORYY-LITOP 

L-l>LPRINT,--lNEXTYYlP-P»HG0T05475ELSE3476G0 BET ANOTHER RECORD 

••♦BTREE»»« 

3320 BOSUB5530ICLSIBOT01520 

3330 >-l 

3331 XX-INSTRCX,PA»,-"->"IFXX! >0THENZ-VOL(MID» !PO». X , IX-X > ) ILPRINTCHR«< Z) I "X-XX* 
H GOT 05331 

3332 Z"VAL(MID»"PA«.X.LEN<PA»!-X»1> ) "LPRINTCHRKZ! 1RETURN 

3340 F0RX-1T061"LPRINTG»<X> I HFLEN(G«(X) I >OTHENLPPINT"- > " I 

3341 LPPINTC«(G(X1 )|- -|HFBT»(X»1I»-Y-ANDX< >G1THENLPRINT, "- ILI-Ll- 
5545 NEXTX I RETURN 

5360 PRINTt51Z.CHR«(31> I "LABELS ORE SET FOR "|PLI" LINES. 

<1> RESET ■ OF LINES 

<2> TEST LABEL ALLIGNMENT 

<3) PRINT LABELS 
ENTER YOUR SELECTION--)"! 
3370 B0SUB3O70"I*-A*i I IFI»-"-THEN5570ELSEIFI»-"l "1HEN5575ELSEiri»--2"TH£N333i.iELS 






SEJA NOSSO COLABORADOR 

E ENTRE PARA A HISTORIA. . . 

. .de MICRO SISTEAAAS, e claro! 



Como? t: simples: 

• Se voo§ desenvolveu um 
programa interessante, escreva 
um texto datilografado expli- 
cando qual a sua utilizaca"o e 
junte exempt os de apli cacao. 
Atencao: 6 imprescindi'vel que 
a listagem seja datilografada. 
Se for possfvel mande tam- 
Wm, junto com a listagem 
datilografada, uma fita cassete 
ou disquete com o programa. 

• Se for artigo, use tambem 
a maquina de escrever e, caso 
haja necessidade de desenhos e 
ilustracoes, detalhe-os o mi- 
ximo possi'vel. 



• Releia atentamente sua co- 
laboraca"o para micros ou cal- 
culadora, veja se na"o falta ne- 
nhuma informaca"o (qual equi- 
pamento, em que configuracao 
etc.) e remeta-a, em duas vias, 
para a equipe de MICRO SIS- 
TEMAS analisar. 

• Se aprovado, seu artigo ou 
programa sera publicado em 
data a ser confirmada na e"po- 
ca. Todo material veiculado e* 
remunerado. Caso na"o seja 
aprovado, voce" receberd seu 
material de volta. 

o Nao se esqueca de mandar 
um breve curn'culo, seu nome, 
telefone e endereco complete 



/Micro 



Eirl«'"3-THEMf ETUPNELSE5570 

5575 PRINTt5l2.CHP«i31 M-MOU MANY LINES APE TMEPE FROM THE TOP OF ONE LBBEL 

TO THE NEXT-I :INPUTPLlG0T0556O 

3380 LPRINTSTRING«PH-1,42> I "FOPx-l T0PL1LPPINT ,"" "NEXTX "G0T05S60 

3600 ON PN SOTO 5601 

3601 RETUPN 
3999 RETURN 

6003 ON PF GOTO 6003 . 6005 . 6O05 . 6040 . 6003 

6003 RETUPN 

6040 Cl»-VALlA»i3> )«VAL(A»I4> )IPU»-- .00" lG0SUB6800"PPINTt433.PU»I "R»( b 

>-PU« 

6049 PRINT«EM,E9»|I RETUPN 

660O Rl-U"CA-0"BOSUB411PR1NJ«4..3.CHR»(.51> I "DO YOU H1SH TO RIPLBLE THE CONTENIS 

F A CHOSEN TIELD- (Y/N/OI "I 

6605 GOSUB3070"PE«-fl»"IFRE»-"N"THEN6620ELSEIFRE»! )"Y-ANORE»< )"Q" THEN66v5ELSEIFRE 
»."VTHENCLS"G0SUB::530"PPINTtEN, "REPLACE WHAT TIELD • " ! " INPUTRr I 1F1RF-0I0P'PF-K F 
)ORI RF >NF«OS i THEM6600ELSEPRINT 

6606 IFRE»-"Q"THENPETURN 

661>i CLS"PPINT"Y0U HAVE SELECTED FIELD • ,, |RF! - . WHEN THE SCREEN BPPEARS ENTER" IP 

PINT-THE DBTB YOU WISH TO REPLACE IN THE CHOSEN FIELD. " lPRINT"PRESS < ENTER) TO C 

ONTINUE-I 

6615 G0SUB3070 1 RE»-A» I CLS ■ GOSUB2530 1 PF-PF ■ SF-PF : EF-Rr ■ GOSUBI 1 40 1 PF»-A« ( PF > i RE - - I 

6620 GOSUB41"PRINT«448.CHR»(31)i"SHOULD ALL CALCULBTIONS BE PERFORMED -1 (Y/N) "I 

6623 GOSUB3070lRE«-A»UFRE»»"N"THEN6627ELSEIFRE«( ) "Y-THEN6623ELSECA— 1 

6627 PPINTt448.CHR»(31)l"00 YOU WISH TO USE B RESTRICTION-' (Y/N/QI "I 

6628 GOSUB3070IRR»-A»IIFRR»--N"THEN6630ELSEIFRP»--0"THENPETUPNELSEIFRR»(>"Y"THEN 

6628 

6629 RR--US0SUB9075IRR-0 

6630 CLSsGOSUB253OiGOSU816O"G0SU8120"F0Rr-2T0B9-ll6ETl,F"FORY-lT0NF-D3"««IY!-C»! 
YMNEXTYUFFLt! >"»"THEN6643ELSEG0SUB1440"PPINTtEM, "PRESS t TO BBORT--" iB9-F: I IFI 
NKEY»-"t"THENRETURN 

6632 !FRR»--Y-THENFO«-LEFT«<C»<QQ> ,LT > I TVi-VAL(CKOO) I lONIIGOSUBl 10. 11 1 . 1 12, 113, 
114,115. 1161 IFF0THEN663SELSE664S 

6635 IFRETHENA«(RF>«RF»"PPINT«D(RF.2> ,B«(RF ) .STRING*! DIRF. 1 ) -LENlRFt ) .32 ) I 

6636 IFCATHENFOPPF-S3T0S4"G0SUB6O03"NEXTPF 
6640 F0RY-1T0NF»DS"LSETC»( Y)-A«(Y> INEXTYIPUT1 ,F 
6645 NEXTFICL0SEIG0SUB1360IRETURN 

6799 RETURN 

6800 FX»«STR«! ABS1C1* ) ) I IFIN8TR<FX», " . " )-OTHENFX»"FX».- .00000000" 

6801 IFCl»<0THENFS»-"-"EL8EFS«-" " 

6802 IFIINSTR(FX»,"E">()0 OR INSTRIFX*. "D" ) < )0 I ANDOBSICl* ) i lTHENFX»-STPt (BBSIC1 
• >»1 I lFX»-LEFT»irX«, l)*RI8HT«(FX»,LEN<FX»)-2> 

6810 PU-INSTR(PU».-.-):IFPU-OTHENRSETPU*-STR»<INTIBBS(Cl»)))lHID»<PU«.l.l)-rS«lR 

ETURNELSEFX.LEN(FX«)lF2.INSTP(FX».".-)lFY-PU-F2'liMID»(PU».FY,FX)-FX»lHID»<PU»,I 

,1)-FS» i RETURN 

6820 RETURN 

6900 ER«-STR» (ERL)»"/"»STR«( ERR/2* 1) 'ERROR PARAMETER 

6902 IFERR-20THENPRINTtEH,E9»l"DIVISI0N BY ZERO " 1 "PRINTtCP^F. "" I >RESUME«4E<T 

6903 IFERL-6810THENPRINT1EM,E9»|"RESULT TOO LARGE " I IPRINT«CP»F. " ' I "RESUME! 
820 

6906 CLOSE 

6907 IFER»-" 160/ 65"TH£NPRINT«S1Z.CHR»I 31 > I "BSD FILE NAME-PRESS ENTER" I "G0SUB30 
70 1 CLOSE "RUN 

6909 irBOTHENCLSlPRINT-DOS ERROR IN BATCH MODE. -BB-" IBBI " STATUS-" |ER«"PRINT"SEE 
SECTION 14.9.4 IN PRODUCER (TM1 MANUBL OR SECTION 2.9.4 IN" "PRINT "FINISHED PROS 
RAM MANUAL FOR RECOVERY" I END 

6911 IFERR/2*l-62THENPRINTtEM,E9»l"DISK FULL-— PRESS ENTER " l "G0SUB3070" IFBOTH 
EN69O9ELSERESUHE1520 

6930 PRINT«EM,E9« I 'UNKNOWN ERROR-PRESS ENTER" 1 IOOSUB3070lPRINTtCP. "" I "RESUME1S20 
7000 PRINTt448.CHR»<31)|lPRINT"THE END"1END 

7999 'STATUS DISPLAY 

8000 PRINJt480.CHR»(191 ) |STRING«!8, 131 I I " FILE STATUS " |STRING»(8. 131 1 1 lPPINT«54 
4,CHR*1191)1- LAST RECORD ACCESSED- )" IFNSKZO) I lPRINTt608.CHR»< 191 ) I - • ACTIVE R 
ECORDS )"1FNS»(86)I 

8010 PRINTt672,CHR«(I91)|- • DELETED SLOTS OPEN- ) - lFNS»lB9-B6-2) I ■PRINTf736,CHR» 

(19111- FILENAME ) - |FZ»1 iPPINT»800,CHR»( 191 ) I " ERROR STATUS--! " 1ER«I iPPINT 

t864, STRING* (30. 131) I 

8020 FORU3"310T0832STEP64iPRINT«U5.CHR»II91l I INEXTU5:PRINT«894,CHR»I 131 ) I IRETURN 

9000 G0SUB41lPPINTt448.- " 1CHR»< 191 ! |STRIN6»<7, 131 ) I " OPTIONS MENU " |STPING»<6. 1 

31I|CHR»C19H 

9010 PRINT" -|CKR»(191 l|" 11) (D)ELETE A RECORD "|CHR»(191! 

ICHR»(19I)|- (2) (S)EARCH FOR ANY KEY ";CHR»<191> 

•|CHR»(191)1" (3) (R)EPLACE fl FIELD "|CHR»!191> 

-1CHPK19I) I" (4) (B)ATCH ADDITION MODE "ICMP»<191I 

-1CHRK191I1- 15) IE1XIT TO MAIN MENU 'ICHRX19D 

-|STRING»(29,131)lS0SUB80O0lPPINTlPRINT"PRESS NUMBER BY MENU CHOICE 
I"|1B0SUB1527I2-VBL(B»!IIFINSTR|SC».B»I )OTHENZ-INSTR(SC».B« )ELSEIF2( 10RZI5 

THEN9000 

9070 60SUB1360lIFZ-lTHENPRINTtO."-llGOSUB2530lPRINTlEM,E9«l"ENTER RECORD TO DELE 

TE"llGOSUB1720lIF<FOAND(S»--Y-ORS»-"")>THENA»(KF>-"DELETE-iBOSUB1875lG0TO1520ELS 

E13Z0 

9073 IFZ-2THENIBOSUB9073ICLOSEIBOT01520ELSEIFZ-3THENGOSUB6600I60T01520ELSEIFZ-4T 

HEN9390ELSE IFZ-5THEN1520 

9075 CLSlG0SUB2530lPPINTtEM,E9»l"SEBRCH-FIELD t (C-END) " I I INPUTOS»"00-VAL<00» I ■ I 
FOO»-"t"THENPETURNELSEIFQQ<10ROO>NF«DSTHENCLSlGOSUB2330lPRINTtEM,E9»l "FIELD • OU 
T OF RBNGE-ENTEP-liGOSUB3070iG0T09075ELSECLS'SOSUB908SlGOSU8l05:II-VOL<I»l 

9077 IFI»-"t"THENRETURNELSEIFII(10RII>7THEN9075ELSECLSIGOSUB2530iPPlNT«EM,E9»l"E 
NTER SEBRCH KEY" 1 IPF-00'EF-QO>9F-O«lfl«-" " ■ GOSUBI 1401 TAl-BKOOl I IFTB»-" "THENPETUR 
NELSELT-LEN ( TB» ) I IFI I ) 4THENTB«-VOL i TA» ) 

9078 IFRRTHENRETURNELSECLSlPRINT-SEBRCH FROMl <1> START OF FILE <2) END OF FILE 
••|:GOSUB3O7OlI0-VBL<A*>lIFI0U0RI0>2THEN9078ELSEIFIQ-lTHENHl-2IH2-B9lH3-lELSEHl- 
B9IH2-2IH3— 1 

9079 CLSlGOSUB2530lGOSUB160lG0SUB120iFORXZ-HlTOH2STEPH3IPRINTtEM, "PRESS I TO ABO 

p T )"|B9-X2llGETl,X2lIFFL»-"-"THEN9O83ELSEFO»-LEFT»(Ctl00l ,LT ! ■ TV»»VAL(C»( Q 

0)) lIFINKEY«--«"THENGOSUB3Oe0lRETURNELSE0NIIGOSUB110,lll,ll2.113.114,115.116 
9081 irFOTHENGOSUB1440lZ3-X21SOSUB1500lIFS»-"Y-THENPPINTtEM,E9» I "RECORD »"|XZI"- 
PRESS (ENTER)"|lGOSUB3070iRETURN 

9083 NEXTX2IRETURN 

9083 PRINTTBB( 19 II "SEARCH A FIELD MENU" :PPINTCHR« (209) I " " IPRIHT" ( 1 ) EOUAL TO 

■"■PRINT"(2l GREATER THBN | SEBRCH FOP B STRING FROH LEFT OF FIELD"iPRINT" 
(3) CESS THBN J-'lPPINT 

9087 PRINT"(4) SE»CH FROM ANY PLACE IN FIELD" lPRINTCHR»(209l I " " iPRINT"<5) EOU 
BL TO ■"lPRINT"(6) GREATER THAN | SEARCH FOP NUMERIC VALUE" IPRINT" (7) LES 
S THAN J- IPRINT l PRINT-PRESS THE NUMBER BESIDE YOUR SELECTION" 
9089 RETURN 

9200 IFLEFT»(A»(KF> .11! >" "THEMPPINTtEM.E9»i " (R >EPLACE. IN1EH KEY , ( E >ND " ! IG0SUB30 
70IIF0»--R-THENRETURNELSEIFA«-"N"THENTA».B«(KF)"T;»-A«!K2) :G0SUB16S0iS0T01520ELS 
EIFA»-"E- THE NG0SU8 1360 IS0T01320ELSE9200 

9210 ^PINTtEM.E9»l"BAD KEY PRESS 1ENTEP) " i GOSUB I 360 l GO TO 1320 

9300 IFZ3"0THENPPINTt312.CHR»131 )!"••• FILE NOT INITIALIZED ••• 

PPESS (ENTER) TO INITIALIZE OR t TO ABOPT ) " iTZti INPUTI»l IFIt""t"THENCLOSE :► IL 

LFZ»iRUNE l -3EZ3-::B6-0lB7-0lB9-2iBD-0lG0SUBZ6OlPUTl,lIRETURNELSERETURN 

93'0 PRINTt960. "BOTCH MODE DESIRED ( Y/N I "" I iGOSUBIOSi IFI»-"Y"THENB0--1 12-1 i&OTOl 

545ELSEIFI*! )"N"THEN9390 ELSE 1320 

9*00 IF B8-0THENGOSUB94O3 

9402 PRINTtEM,E9»l"... HPITING--BATCH MODE •••" 1 (BB-BB-1 lG0SUB120iGOSUB230lLSETB 

1«°M) I»(BB)ILSETB2»-Mt I»(0) IPUT1 ,BB 1GET1 . 1 "LSETB2*-MK I tl BB! 1PUT1 . 1 "RETURN WRIT 

E BATCH RECORD 

9405 IFPC-25&THEN0PEN-P" . 1 . "BATCH/DAT" cRETUPNELSEOPEN'P" . 1 , "BATCH/DAT" , PC "RETURN 

"500 irBB-0THENCL0SE"PETUPNELSErOCF-nC£.tl30SUB9405"GOSUBI20!GETl,FlCL0SE!FOPH-l 

T0Nr-DSlAl-H)-C»!H>INEXTH"GOSUB1440!TA»-A»!KFI "T2»-A1(K2 I "SOSUB16Vi"NEXTF"CL0SE " 

BO-OiBB-0'RETUPN 



9020 PRINT" 
9030 PRINT" 
9040 PRINT" 
9050 PRINT " 
9060 PRINT" 



Envie para REDACAO/MICRO SISTEMAS, Rio ou Sao 
Paulo: Av. Presidente Wilson, 165/grupo 1210, Centro, CEP 
20030, Rio de Janeiro, RJ; Rua Oliveira Dias, 153, Jardim 
Paulista, CEP 01433, Sao Paulo, SP. 



Esta materia foi produzida apds uso dos programas em questao no CPD 

DE MICRO SISTEMAS. 

Agradecemos aos programadores que aqui estiveram para colaborar com a 

materia. 

Texto: Lucio Santos 
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Suprimento e coisa seria 




253-1120 



Com a Centraldata 
a entrega e imediata 



263-5876 



Mantenha o seu computador bem alimentado adquirindo 
produtos de qualidade consagrada 



d~| CENTRALDATA 
I Com e Reoresentacoes Llda 



I 



DISKETES: 5 1/4 e 8" • marca 

VERBATIM 

ETIQUETAS PIMACO — PIMATAB 

PASTAS E FORMULARIOS CONTlNUOS 



Discos Magneticos: 5 Mb, 16 Mb, 80 Mb, etc. 

Fita Magnetica: 600, 1200 e 2400 Pes 

Fita CARBOFITAS p/lmpressoras: Globus 

M 200 — B 300/600 

Fita p/lmpressoras: Elebra, Elgin, Epson, 

Digilab, Diablo, etc. 

Cartucho Cobra 400 



AV. PRESIDENTE VARGAS N.° 482 6R 207 TEL. (021) 253-1120 E 263-5876 



Neste jogo, para os micros Sinclair, vocS estara" cercado por todos os /ados, 
basta um passo em falso e pronto... um ponto a favor do adversario 



Num bloqueio 
sem saida! 



Roberto Tannenbaum 



Bloqueio e para ser jogado por duas pessoas, onde cada 
uma delas ira controlar um quadrado no video. Os 
quadrados podem se mover para a direita ou esquerda, 
para cima ou para baixo, deixando uma trilha por on- 
de passam. que cada jogador deve fazer 6 evitar que seu qua- 
drado se choque contra qualquer obsta*culo, seja ele a pr6pria 
trilha, a do adversario, ou ainda as paredes que cercam o video. 
Se o quadrado de um dos jogadores colidir, o adversario 
marcara um ponto. Ao final, vence aquele que chegar primeiro 
a dez pontos. 

Bloqueio pode ser jogado na modalidade NORMAL, na qual 
os quadrados tern velocidade constante ou ACELERADO, com 
velocidade crescente. A figura 1 demonstra como cada jogador 
deve controlar o seu quadrado. 

PROGRAMA 

Para carregar o micro, em linguagem de maquina, deve-se 
utilizar o MICRO BUG (MS nPs 31, 32 e 33). Os comandos 
do MICRO BUG sao SHIFT E, > E 1,B4,1 e > M $16520. 

A partir dai, cria-se a linha 1 REM (178) ..., esta linha deve 

conter, no minimo, 178 caracteres quaisquer. Com o MICRO 
BUG ou utilizando o modo A do monitor Assembler (MS, nP 
23), entre com os codigos da listagem 1 . Nessa altura, e* bom 
verificar se nada foi digitado errado. Entre com o programa da 
listagem 2 e, entao, grave o programa em fita. 

funcionamento do programa consiste, primeiro, na leitura 
do teclado para serem calculadas as novas posicSes. Se na"o 
houver colisao. os quadrados sao desenhados e reinicia-se a 
operacao. Ao contrario, se houver colisao, o programa retorna 
ao BASIC para somar um ponto ao placar e reinicia-se a opera- 
cSo. 

Para verificar quais as teclas pressionadas 6 chamada a sub- 
rotina KSCAN (endereco 699) e depois testa-se cada bit do re- 
gistrador L. A sub-rotina FINDCHR (endereco 1981) nSo 6 
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Movimento 


Jogador 1 


Jogador 2 


subir 


teclas 1-5 


teclas 6-0 


descer 


teclas Q-T 


teclas Y-P 


direita 


teclas A-G 


teclas H-L 


esquerda 


teclas Z-V 


teclas B-. 



Figura 1 
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Bloqueio 






10 


LET C1=0 




200 


PRINT PT 11,9; "B"; AT 11,21; 




20 


LET C2=0 




"■•■ 




30 


LET K=0 




210 


SLOW 


40 


PRINT "l.NC 


jRMPL" . , "2.HCELER 


220 


IF INKEY$s="" THEN GOTO 220 


HDD" 






230 


PRINT PT 11,9;" "' ; RT 11,21; 


50 


IF INKEY$ = " 


' " THEN GOTO 50 


■ i ii 




60 


LET K=CODE 


INKEY$-29 


240 


RPND USR 15520 


70 


FAST 




250 


IF PEEK 15518 THEN LET C2=C 


30 


POKE 15413 





2 + 1 




90 


POKE 16569 


3 


260 


IF PEEK 16519 THEN LET C1=C 


100 


POKE 16591 


24 PND K 


1 + 1 




110 


POKE 16513 


.0 


270 


PRINT PT 2,2; CI ,C2 


120 


POKE 16519 





230 


IF Cl>9 OR C2>9 THEN GOTO 3 


130 


CLS 
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140 


FOR F=0 TO 


31 


290 


IF INKEY$="" THEN GOTO 290 


150 


PRINT PT 


, F; "■".;hT 23, F; 1 




300 
310 


GOTO 70 
CLS 


160 


NEXT F 






320 


PRINT PT 9,9; "FIN DE JOGO" 


170 


FOR F=l TO 


22 




330 


IF INKEY$="" THEN GOTO 330 


180 


PRINT PT F 


. 0; "1" .; PT F,31; i 




340 
350 


CLS 
RUN 


190 


NEXT F 









chamada, pois ela nao permite verificar se duas ou mais teclas a pausa 6 constante. Querendo-se diminuir a velocidade do jo- 

estao sendo pressionadas simultaneamente, o que 6 imprescin- go, basta alterar a linha 90 do programa, substituindo o 8 por 

dfvel neste jogo . urn numero maior . 

O endereco 16669 cont^m o tamanho da pausa que contro- Agora, s6 resta pressionar RUN e jogar. 

la a velocidade do jogo. Na modalidade ACELERADO, o tama- — 

nho da pausa 6 diminuido pelo pr6prio programa, desta for- Roberto Tannenbaum 4 estudante de Engenharia na Escola Polittcnica 

ma, O jogo flea cada vez mais rapido . Na modalidade NORMAL, da USP e tern por hobby a programacSo de calculadoras e micros. 
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SERVIQO 
AO ASSINANTE 



Assinale com um x a sua opcao 
ASSINATURAS: 

DNOVA DRENOVACAO 

Para novas assinaturas, preencha o cupom anexo. 
Para renovacao, basta colar a etiqueta que acom- 
panha a sua revista no espaco reservado sobre o 
cupom. Em ambos os casos, remeta, juntamente 
com o cupom, e/ou etiqueta um cheque nominal a 
ATI EDITORA LTDA. no valor de Cr$ 25.000,00 
para os nossos escrit6rios no Rio de Janeiro ou Sao 
Paulo. 

D MUDANQA DE ENDEREQO 

Preencha o cupom ao lado com o novo endere- 
co e cole no espaco acima a etiqueta que acompa- 
nha a sua revista. Remeta-nos, para os enderecos 
abaixo. 



Em caso de mudanpa de enderego ou 

renovagao de assinatura, cole aqui, 

etiqueta de enderecamento. 



Nome: 



Endereco: 



Cidade: 



Estado: 



CEP: 



4ISD 



Anause. Teieprocessamento e 
Informatica Editora Ltda 



SAO PAULO - Rua Oliveira Dias, 153, CEP: 01043, Tels.: (011) 853-7758 e 881-5668 

RIO DE JANEIRO - Av. Pres. Wilson, 165 -Gr. 121 0/1 6, CEP: 20030, Tels.: (021) 262-5259 e 262-6437 



Dentre os "geradores" de programas em BASIC, o Creator, do 
norte-americano Bruce To kin, e opcao acess/'vel e comprovadamente satis fatdria 



Creator, uma ferramenta 
de programa^ao 



Luiz Gonzaga de Alvarenga 



Alinguagem BASIC, pelo fa to de ter-se transformado 
em uma espe'cie de linguagem universal para os mi- 
crocomputadores, estando presente em todos eles - 
mesmo que em diferentes versoes ou dialetos — , 
provocou um imenso esforco de criacao de programas para as 
mais variadas aplicacoes. Sao in timer os os programas em lin- 
guagem BASIC hoje existentes, incluindo as versoes comerciais 
e os programas publicados em diferentes revistas especializa- 
das, principalmente nos Estados Unidos da America, onde o 
numero de publica?6es especializadas em computadores e pro- 
grama^So, dirigidas aos usuanos das diversas maquinas la fabri- 
cadas, atinge a quase duas centenas de diferentes titulos. 

AUXILIO PARA O PROGRAMADOR 

Embora a linguagem BASIC seja relativamente facil de ser 
aprendida, logo se percebeu que a elaborac.ao de sofisticados 
programas e muito mais uma questao de talento e original idade 
pessoais do que uma conseqiiencia do dominio das tdcnicas de 
programacao; al£m do conhecimento da linguagem em si. Tan- 
to isto e" verdade , que alguns dos mais interessantes programas 
em linguagem BASIC incorporam te"cnicas extremamente sofis- 
ticadas criadas pelos seus autores, e que na"o tinham sido pre- 
vistas especificamente para a finalidade na qual foram usadas 
(e" o caso, por exemplo, da fun9So VARPTR, usada pelo 
"papa" da anima?ao graTica no TRS-80, Leo Christopherson, 
com resultados espetaculares). 

Tendo esse detalhe em vista, alguns programadores mais ex- 
perientes procuraram criar programas que fossem capazes de 
auxiliar na elaboracio de programas na linguagem BASIC. Es- 
tes procuram mostrar ao usuario as seqiiencias mais comuns de 
procedimento de cria^ao, sugerindo roteiros de processamento 
ou criando comandos, instrucoes, telas, mensagens ou quais- 
quer outros artificios normalmente utilizados pelos programa- 
dores veteranos, o que ajuda a eliminar as tarefas mais exaus- 
tivas e acelera o processo de elabora^o do programa. 

Dentre os programas escritos com este objetivo, os mais co- 
nhecidos sSo o QUICKPRO e QUICKPRO PLUS, da Future- 
Soft, e um programa da Software of the Future Inc., o 
PRODUCER, escrito por Roger Smith. Estes programas, escri- 
tos num misto de Basic e Assembly, e vendidos comercial- 
mente pelas respectivas soft-houses sao extremamente sofisti- 
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cados e podem ajudar na elabora?ao de programas em lingua- 
gem BASIC para aplicacoes diversas (desde que, naturalmente, 
o programador ja possua conhccimentos basicos desta lingua- 
gem, bem como domine o assunto ao qual ele pretende aplicar 
o programa). 

QUICKPRO e o PRODUCER sao talvez inacessiveis a 
maioria dos possuidores de microcomputadores no Brasil, seja 
pela dificuldade em encontr^-los, seja pelo seu elevado preco. 
Os leitores interessados no tema na"o ficarao, contudo,.frustra- 
dos, pois uma op9ao mais facil foi oferecida pela revista norte- 
americana "80 Micro" em sua edicao de Janeiro de 1983, quan- 
do publicou um programa, escrito por Bruce Tonkin em lin- 
guagem BASIC, denominado CREATOR (posteriormente, uma 
versao mais elaborada foi publicada na edicao de fevereiro de 
84). 

CREATOR tambem permite a criacao de programas em 
BASIC e presta-se as seguintes aplicacoes: controle de estoque; 
contas a pagar; contas a receber; mala direta, bem como outros 
tipos de aplicativos que envolvam arquivos em base de dados. 

ELEGANCIA E FUNCIONALIDADE 

O uso deste programa 6 relativamente ftftil, pois basta res- 
ponder as perguntas que ele vai colocando na tela, a respeito, 
por exemplo, do numero de campos por arquivo; tamanho dos 
registros a criar; ou se a operasao serd executada com mimeros 
em precisao simples ou dupla. As questoes sao conduzidas de 
forma tal que o proprio operador do CREATOR especiflca o 
que deseja do programa a ser criado. Existem, evidentemente, 
varias limita95es, mas isto nlo tira a versatilidade do programa. 
Dois pontos, contudo, devem ser considerados: o CREATOR 
nSo pode ser utilizado para criar qualquer tipo de programa, 
pois a sua utiliza5§o esti limitada aos aplicativos de arquivos 
de dados. Segundo, ele nSo ensina como usar a linguagem 
BASIC, e sim orienta na cria9lo de programas em BASIC ; o que 
pressupde que o programador ja" deva conhecer os rudimentos 
dessa linguagem. 

Uma das particularidades mais interessantes que o programa 
CREATOR utiliza na criacSo de outros programas em BASIC 
- que ira\ sem duvida, agradar a todos aqueles que se interessam 
por te'cnicas de programacao — 6 a sua elegante forma de 
acesso a arquivo, que usa o modo sequential. Esta tdcnica de 
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acesso a arquivo, cujo algoritmo utilizado foi criado por Bruce 
Tonkin, permite criar linhas de programa em forma de arquivo 
de dados, sem que. contudo, o arquivo criado seja considerado 
como um programa ilegal. Isto significa que o arquivo que foi 
aberto, segundo as tecnicas usuais de abertura de arquivo de 
dados — lembre-se que este tipo de arquivo nSo pode ser carre- 
gado (LOAD) ou rodado (RUN) - no modo seqiiencial, pelo 
fato de conter numeros de linhas de programas, passa a ser um 
arquivo comum de programa. exemplo abaixo elucidara o 
que foiexplanado. 

10 INPUT"NOME DO ARQUIVO A CRIAR" ;DFS 

20 Q$=CHR$(34) 

30 OPEN"0", 1 , "ARQUIV" 

40 PRINT=1,"100 CLEAR 3000" 

50 PRINT=1,"200 OPEN" ;Q$;"R" ;QS;" ,1";Q$;DF$;Q$ 

60 PRINT=1,"300 CLOSE" 

70 CLOSE 

Quando o programa acima 6 rodado, ele abre um arquivo de 
acesso seqiiencial denominado ARQUIY. Em condi9des nor- 
mals, este arquivo criado seria um arquivo de dados, com aces- 
so restrito a forma OPEN/CLOSE, contida no proprio progra- 
ma que serviu para cria-lo. Entretanto, devido a forma utiliza- 
da para criar o arquivo, se se fizer LOAD "ARQUIV" 
(ENTER) e, em seguida, LIST (ENTER), teremos na tela: 

100 CLEAR 3000 

200 OPEN"R" , 1 , "FOLHAPAG" 

300 CLOSE 

onde, 6 claro, o nome FOLHAPAG devera" ter sido introduzido 
previamente, por atribui9ao a variavel DF$, no programa ante- 
rior (linha 10). 

Esta 6 a tecnica utilizada pelo programa CREATOR para 
criar programas em linguagem BASIC. Nao 6 necessario, como 



se poderia pensar, que as linhas que serao criadas tenham se- 
qiiencia nume'rica crescente, nao podendo, apenas, ter numeros 
identicos. Isto porque o programa criado, ao ser rodado, posi- 
ciona corretamente todas as linhas em seus respectivos lugares, 
o que se poderia ver se fosse tirada uma listagem do mesmo. 

Nas mesmas revistas citadas, juntamente com o programa 
CREATOR, Bruce Tonkin publicou o programa REPORTOR, 
que e complementar ao CREATOR e permite manipular os 
dados do programa a ser criado. As versoes de cada programa, 
no niimero de fevereiro de 84, sao bem mais eficientes do que 
as originais, contendo varias rotinas e arquivos de biblioteca 
auxiliar a mais. 

Os programas gerados pelo CREATOR possuem, entre ou- 
tras, as seguintes caracteristicas: 

• acesso as grava9oes do arquivo de dados por meio de chave ; 

• atualizagao de dados em qualquer campo do arquivo; 

• utilizacao de campos de tamanho variavel; 

• utiliza9ao dinamica de arquivo de dados, o qual cresce em 
fun9So dos dados entrados; 

• utiliza9ao de 47 campos em cada gravacSo, cada um com 
ate" 256 bytes; 

• opera95es 16gicas, matematicas ou de strings podem ser rea- 
lizadas e visualizadas, juntamente com os dados; 

• explora9ao alfabe'tica ou numerica de quaisquer campos de 
arquivo de dados; 

• utilizacao otimizada de rotinas. 

O programa CREATOR 6 bastante extenso (300 linhas na 
primeira versao; 229 linhas na segunda, sem contar os arquivos 
auxiliares), e sua digitacao exige paciencia e aten9a"o. Quern 
quer que se resolva a digita-lo tera, na"o obstante, o prazer de 
possuir um extraordinario e sofisticado programa, capaz de 
satisfazer aos mais exigentes usuarios, desde 6 claro, que se re- 
conhe9a as limita95es inerentes ao tipo de programa que po- 
dem ser elaborados com sua ajuda. J| 
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O unico terminal teleimpressor fabricado no Brasil, 



A ISA, Indiistria de Impressoras S/A, acaba de lancar o 

primeiro teleimpressor genuinamente brasileiro. Sua alta 

tecnologia eletronica, prova na pratica sua capacidade 

de trabalho. Imprime por matriz de pontos 9x7, 

permitindo ate 8 copias impressas, com uma 

velocidade de 100 C.P.S. Equipado com 

memoria standard de 2 K caracteres, 

utilizando formulario contmuo. 

folhas soltas ou bobina de papel. 

De 64 ate 132 caracteres por 

linha, com interface serial 

RS 232 elo de corrente e 

paralelo. Sua velocidade 

de comunicac. ao e de _ 4 - 

50 a 9.600 B.P.S. 

8 diferentes 

tipos de 

impressao. 





Conhega mais 

detalhesdo 

Teleimpressor 

KSRna 



INDUSTRIA DE IMPRESSORAS S.A. 

Escntorio: 

R. Ptol. Jose Marques da Cruz. 234 

Fabrics 

Rua Cenlro Alricana, 74 

Tels (01 1) 240 2442 543 4939 

Telex (01 1i 36926IIIM BR 

Sao Paulo S. P. 



©ECODATA 



S1SIIHA 0! PROCESSAMENTO OE OADOS E IEIECOMUNIC AC6ES 

MATRIZ: Rio de Janeiro R. Republica do Libano. 61 12." and. 

Tel.. (021) 221 4677 Telex (021) 30187 

FILIAIS: S.Paulo R. Frei Caneca. 1119 Tel. : (011)284 8311 Telex (011)22191 

Brasilia SCS 02 Bloco C n? 41 SL. 01 Tel.. (061) 225 1588 Telex (061) 1 750 

Porto Alegre Rua Santa Terezinha. 300 Tel. (05 1)32 3564 Telex (051) 2144 

Goiania Belo Horizonte Salvador 



i pfus 



com acentuacao 

em portugues 

aaaaeei666uug-2§ 

SISTEMA IVANITA' 



No Video e 
na Impressora 



Totalmente compatfvel com o 
Processador de Texto - JANELA MAGICA II 



venha 

conhecelo 
na 




computer store 



Lin ha Com pi eta de Software para APPLE 

Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
Sao Paulo - SP - Tel.: (01 1) 852-0799 

(*) O Sistema IVANITA ja 6 compativel com as seguintes impressoras: 



GRAFIX80M00 
i ISA EL - 8000 
M6NICAEI 6010 



ELEBRA 8010/11/30/31 
ELGIN LADY 140 I/ 140 L 
EPSON MX/RX/FX80/100 



CENTRONICS 351 

Maq de esctever OLIVETTI ET 

Maq de esctever IBM 96/196 



liliCRO 

flcUJ* 

Microcomputadores com credito direto ou leasing 



TK-2000 Cr$ 939.850. 

TK-85 Cr$ 398.850. 

CP-200 Cr$ 409.000, 

CP-300 •. Cr$ 849.000, 

CP-500 Cr$ 2.390.000, 

DGT-1000 Cr$ 1.498.000, 

GRATIS! 

UM CURSO DE BASIC 

ENTREGA RAPIDA EM TODO BRASIL 



Apiicativos: controle de estoque: contabilidade: folha de 
pagamento: contas a receber pagar: mala direta: cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. 



Temos toda linha de penfencos e suprimentos para acorn 
panhar o crescimento de sua empresa. 



VISITE-NOS OU S0LICITE UM REPRESENTANTE 



MICRONEWS COMERCIO E SERVIQOS LTDA. 

R. Assembleia 10 Gr. 3317 • Ed. Cenuo Candido Mendes 

Tel.: (021) 252 9420 CEP 20011/RJ. 



CREATOR. UMA FERR AMENTA DE PROGRAMACAO 



O Creator, 
segundo Bruce Tonkin 



Em Janeiro de 1983, a revis- 
ta norte-americana 80 Mi- 
cro, especiaJizadaem micro- 
computadores da linha TRS-80, 
surpreendeu seus leitores com a 
pubhcacffo do programa-fonte 
de um famoso software que vi- 
nha sendo vendido no mercado 
por 295 d6lares. O programa era 
o Creator e a iniciativa inedita 
partiu do proprio autor, Bruce 
Tonkin. Num longo artigo es- 
crito para a revista, ele expbcou 
os motivos do seu gesto e ofe- 
receu o disquete com o progra- 
ma. para quern nao quisesse di- 
gita-lo, por apenas 10 dolares. 

O Creator e um programa 
que gera outros programas de 
banco de dados, usando a lin- 
guagem BASIC da Microsoft pa- 
ra equipamentos da linha TRS- 
80, Modelos I ou III. Suas prin- 
cipais apbca?6es sao para a gera- 
cfib de programas de mala dire- 
ta, cadastro e contas a pagar e a 
receber, entre outros. Alem dis- 
so, como nem o Creator nem o 
programa gerado sao escritos em 
Assembler, tornasse facil a con- 
vcrsao para outras linhas de 
equipamento. 

AS DIFICULDADES 

Bruce Tonkin concluiu uma 

?rimeira versao do Creator em 
5 dias, trabalhando cerca de 
200 horas no projeto. Apos essa 
primeira etapa, levou o progra- 
ma ao seu advogado para pro- 
videnciar o copyright que Ihe 
pcrmitiria receber os royalties 
provenientes da sua futura co- 
mcrcializaijao. Varios meses de 
trabalho, contudo, ainda foram 
necessarios para depurar o Crea- 
tor, eliminando todos os erros 
do programa. 

Com o programa pronto, Ton- 
kin saiu em busca de investido- 
res que acreditassem no Crea- 
tor e se interessassem numa as- 
sociac,a"o. Foi ai que comeca- 
ram a aparecer os primeiros pro- 
blemas. e ati hoje ele lamenta 
nffo ter tido condicdes financei- 
ras de bancar o projeto sozinho. 
A com pan liia com a qual se as- 
sociou tmha os direitos exclu- 
sivos de comerciahzac£o, en- 
quanto ele ficou com os direi- 
tos autorais e de modificacao. 
O problema foi que, embora o 
programa tivesse sido bastante 
comercializado, o autor diz nao 
ter recebido um unico dolar de 
royalties. 

Para Bruce Tonkin, seu erro 



foi ter-se associado a pessoas 
que nao entendiam nada de 
computacao, nem de software e 
nao tinham vontade de aprender. 
Por isso, no artigo para a 80 Mi- 
cro, ele alerta os programado- 
res para, ao produzirem um pro- 
grama-fonte in evador, procura- 
rem um bom advogado e contro- 
larem todo o processo de co 
mercializacao, garantindo o re- 
cebimento dos royalties. Ele 
alerta os programadores tambem 
para a figura do distribuidor, 
que e quern efetivamente comer- 
cializa o programa. Segundo 
Tonkin, "os distribuidores nao 
querem comprar o seu soft- 
ware, eles querem comprar vo- 
ce", pois exigem um suporte 
tecnico continuo por parte de 
quern criou o programa, alem de 
darem ao autor, uma margem de 
receita muito pequena - entre 
20% e 25%. Apesar disto, Bruce 
Tonkin admite que o distribui- 
dor e importante, porque e ele 
quern avaha o pacote, investe 
em propaganda e se encarrega de 
dar um suporte minimo as lojas. 

EXPECTATTVAS DO AUTOR 

Segundo seu autor, o Crea- 
tor foi desenvolvido com os se- 
guintes objetivos: ajudar a escre- 
ver programas em BASIC sem 
erros; possibilitar a esses progra- 
mas acessar registros no arquivo 
de dados de uma forma facil, 
atraves de chaves; atualizar facil- 
mente os registros de qualquer 
campo; permitir aos registros 
criados no programa gerado ter 
qualquer tamanho dentro do 
BASIC da Microsoft, ou seja, 
um maximo de 255 bytes; dar a 
cada registro um minimo de 20 
campos; impedir, o maximo pos- 
sfvel, que problemas operacio- 
nais das mais variadas naturezas 
afetem o arquivo de dados; dar 
total liberdade ao usuario para 
determinar os parametros do 
programa a ser gerado, tais co- 
mo validacao de dados de entra- 
da, mensagens de erro uuliza- 
das, tamanho dos registros e 
campos, tipo e niimero de cam- 
pos; utilizar o espaco de regis- 
tros com eficienria; ser facil de 
operar mesmo por uma pessoa 
que na"o conhe9a muito a lin- 
guagem BASIC; rodar numa 
configura9a"o de um unico drive 
e 32 Kbytes, para possibihtar 
o maior numero possivel de 
usuarios e permitir que o pro- 
grama gerado seja construido de 
forma modular. 



Bibiiografia: revista '80 Micro', edicSo de Janeiro de 1983 



Luiz Gonzaga de Alvarenga 4 T6cnico de Telecomunicacbes e trabalha 
na Embratel, em Goidnia, onde reside. 
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A Clappy tern as 
Calculadoras HP para 
voceficaraindamais 
ligado no seu trabalho 
ou no seu estudo. 



E se desligar no 
reco:5xsemjuros. 
u3xcom10%de 
desconto. Ou 15% de 
desconto a vista. 



B 




01 



S©gg©®@effig9iS 






saralM!^ 



HP15 C - Calculadora 

Cientifica Programavel 
Avangada. 448 passos, 
67 memdrias. 



CrS 609.000, 



Sistema HP-IL- A ultima 
palavra em sistemas inte- 
grals para calculadoras 
de bolso. Permite o funcio- 
namento das calculadoras 
HP4lC/CVcomate 
30 unidades compativeis, 
cassete digital HP-IL, 
Impressora Plotadora 
HP-IL emais, mddulos 
para extensao de fungdes 
ede memdrias. 



HP12C- Calculadora 
Ftnanceira/ Estatistica 

Programavel. 
20 memdrias. 

CrS 609.000, 




pq(=ir^(Eqrjiicz|qqmmPq 
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HP 41 CV- Calculadora 
Programavel Alfanum6rica 
com memdria ampliada. 

Cr$ 1.169.000, 
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HP11C- Calculadora 
Cientifica Proaramavel. 
203 passos, 21 memdrias. 

CrS 408.000, 
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Clappy 



lado gente da maquina 

Wtipt HEWLETT 
K.CM PACKARD 



Venha a nossa loja ou solicite a visila de urn representante. 

Centro: Rua Sete de Setembro. 88 - Loja Q (galeria) -Tels.: (021) 222-5517 - 222-5721. 

Av. Rio Branco. 12 - Loja e Sobreloja -Tel.: (021) 253-3395. 

Sao Crist6v3o: Rua Antunes Maciel. 25-2° andar-Tels.: (021) 234-0214 - 264-2096. 

Copacabana: Rua Pompeu Loureiro, 99 -Tels.: (021) 257-4398 - 236-7175. 

Aberta diariamente das 9 as 19 horas e aos s^bados das 9 as 14 horas. 

AssistenciaT6cnica: (021) 284-3349. 

Entregamos em todo Brasil pelo Reembolso Varig. 



No concorrido mercado das instituicoes f i nance iras, a tentativa de oferecer 
um servico cada vez melhor ao cliente tern novo aliado: a automacao 




AUTOMAgAO 
BANCARIA: 

O banco mats 
rdpido e eficaz 



O Banco 24 Horas possui hoje 21 quiosques como este 
em Sao Paulo, Rio de Janeiro e Curitiba. 



Ate pouco tempo atras, quando 
pediamos nosso saldo numa 
agenda bancdria, o funciondrio 
do caixa tinha que manusear um enorme 
formulario de controle de todas as con- 
tas daquela agenda, procurando pelo 
numero de nossa conta. Esses formula- 
rios eram emitidos diariamente pelo 
Centro de Processamento de Dados do 
banco para cada uma de suas agendas e 
continham informacoes sobre as movi- 
menta^oes, saques e depositos realizados 
no dia anterior. A outra possibilidade de 
controle, por parte do cliente, de sua 
conta, limitava-se a espera pelos extratos 
emitidos pelo computador central do 
banco e enviados periodicamente a sua 
casa. 

Hoje, com o rdpido processo de auto- 
macdo que vem se desenvolvendo na 
rede bancaria, o proprio cliente acessa 
diretamente o computador central, 
obtendo as informacoes que lhe interes- 
sam, mediante a entrada de uma senha e 
de seu numero de conta, que lhe permi- 
tem acesso ao enorme banco de dados 
que cada institui?ao possui. Istoporque 
a grande maioria dos bancos ja esta in- 
terligando suas agendas atrave's de ter- 
minals de caixa ligados ao computador 
central, de forma que o cliente tern a 
seu dispor nao apenas a agenda onde 
tern sua conta, mas toda a rede compos- 
ta pelo servico eletronico. 

Aleni dos terminals de caixa ligados 
on line com o equipamento central, o 
que faz com que todas as transacoes se- 
jam repassadas imediatamente (real 



time) a conta do cliente, os bancos pas- 
saram a oferecer tambe'm terminals 
automdticos que sao operados pelo pro- 
prio cliente. Atraves deles, a pessoa po- 
de obter qualquer tipo de informacao 
sobre sua conta, desde o saldo ate* lan- 
camentos em cheques que estao em pro- 
cesso de compensaclo. Ate* mesmo os 
extratos relativos a movimentacao da 
conta em um determinado espaco de 
tempo ja podem ser conseguidos a qual- 
quer hora, em terminals dotados de pe- 
quenas impressoras. Neste caso, o pro- 
prio cliente determina a partir de que 




O Bradesco possui nove mdquinas 

A TMs jd instaladas em Sao Paulo 

e Rio de Janeiro. 



dia ele deseja conferir a movimentaclo 
de sua conta. 

BANCO 24 HORAS 

Outra grande vantagem e que qual- 
quer transa?ao bancana deixou de fkar 
restrita ao horario de funcionamento 
das agendas, desde que os bancos come- 
caram a implantar maquinas do tipo 
ATMs (Automatic Teller Machines). 
Estas maquinas, colocadas no exterior 
das agendas, funcionam tambe'm como 
terminals ligados ao equipamento cen- 
tral do banco e possuem uma s£rie de 
recursos que possibilitam realizar diver- 
sas operacoes bancanas, mediante uso 
de cartSes magn^ticos, a qualquer hora 
do dia e da noite, inclusive aos sdbados, 
domingos e feriados. 

Inicialmente, cada instituicao instala- 
va ATMs nas agendas que considerasse 
mais adequadas. Como o preco dessas 
mdquinas 6 muito alto (por volta de 
Cr$ 80 milhoes, as de fabricacao nacio- 
nal), os bancos passaram a considerar o 
desenvolvimento conjunto de projetos, 
para compartilhar as mdquinas e dividir 
os custos, Uma vez que as maquinas sao 
instaladas fora das agendas nao haveria 
nenhum inconveniente na participa9ao 
de varios bancos, mesmo que concor- 
rentes. 

Com base nesta fllosofia, surgiu a 
empresa Tecnologia Bancaria, responsd- 
vel pelo Banco 24 Horas - quiosques 
onde estao instaladas as ATMs - situa- 
dos em varios locais da cidade. A inicia- 
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tiva de constituigao da Tecnologia Ban- 
cdria partiu dos bancos National, Uni- 
banco e Bamerindus, que decidiram 
criar uma empresa neutra para desenvol- 
ver este tipo de trabalho, totalmente 
desvinculado dos sistemas de automagao 
internos, dentro das agendas de cada 
uma das instituicoes. Mais tarde, integra- 
ram o grupo tambdm o Banco Real e 
Banco Mercantil de Sao Paulo, cada um 
com 20% do controle acionano. 

Ha" algum tempo, a Tecnologia Ban- 
caria passou a atuar tambem como pres- 
tadora de servigo, ou seja, os bancos que 
se interessarem poderao, atraves de con- 
trato, dispor do mesmo servico hoje ofe- 
recido aos cinco bancos acionistas. O 
primeiro a se interessar foi o Banco 
Auxiliar, e o Banco Lar Brasileiro de ve- 
ra, em breve, tambem se integrar ao 24 
Horas. 



AS ATMs 

A empresa Tecnologia Bancaria foi 
constituida em maio de 81, e em no- 
vembro daquele ano a Secretaria Espe- 
cial de Informatica autorizou a importa- 
gao das ATMs, para as quais ate entao 
nao havia similar national. Hoje, estas 
maquinas ja sao fabricadas no Brasil e a 
propria Tecnologia Bancaria, que utili- 
zava equipamentos da Burroghs, reali- 
zou uma concorrencia, em fevereiro des- 
se ano, da qual saiu vencedora a empresa 
Sid, e )£ encomendou 50 mdquinas que 
serao entregues a partir de setembro 
pr6ximo. Com as novas ATMs nacionais, 
a Tecnologia Bancaria. que ja atua em 
tres capitais - Sao Paulo, Curitiba e Rio 
de Janeiro - atualmente com 21 quios- 
ques ao todo, comegara a operar tam- 
be'm em Belo Horizontee Porto Alegre. 

As maquinas ATMs sao compostas 
por um conjunto que compreende, alem 
da Unidade Central de Processamento, 
um video; uma impressora; uma leitora 
de cartoes magneticos; teclado; um con- 
tador de dinheiro e um dispositivo para 
receber envelopes com depositos (em 
cheque ou em dinheiro) e com contas 
ou carnes a serem pagos. 

Por enquanto. todos os servicos ainda 
estao sendo realizados off line, quer 
dizer, a pr6pria m^quina paga a quanti- 
dade estipulada pelo cliente ao digitar o 
teclado, dentro de de seu limite, sem 
consul tar o computador central. J A as 
contas e carnes sao recolhidos por fun- 
cionarios da Tecnologia Bancaria, no fi- 
nal de cada dia, e levados a cada um dos 
bancos part ici pant es do 24 Horas. onde 
passam pelo processo normal de paga- 
mento. As ATMs estao ligadas on line 
com microcomputadores da empresa 
Scopus, situados no centro da Tecnolo- 
gia Bancaria em cada estado. micro 
tern por funcao realizar uma "varredu- 
ra"; uma verificacao que controla se 
todas as maquinas estSo funcionando 



bem e "carregadas" de dinheiro suficien- 
te. micro tambem transmite as "listas 
negras" de cada um dos bancos para as 
ATMs e "puxa" todas as transagoes exe- 
cutadas pelas maquinas, repassando-as, 
ao final do dia, atrave's de teleprocessa- 
mento a cada um dos bancos. A previsao 
6 que, em breve, todos os terminals e 
bancos sejam ligados on line, o que au- 
mentara a margem de seguranca para os 
bancos que utilizam o servico, ']&. que 
antes de cada saque a propria maquina 
consultary a conta do cliente para se 
certificar de que ha saldo. 

O acesso aos quiosques aonde estao 
instaladas as ATMs e as proprias maqui- 
nas e feito atraves de cartoes magneti- 
cos. Na tarja do cartao consta, entre 
outras informagoes, o limite de saque de 
cada cliente. 



Para Luiz Eduardo Sarmento, da em- 
presa Iautec. pertencente ao Banco Itau, 
uma das principals transformagoes trazi- 
das pela automagao bancdria foi o con- 
ceito de cliente do banco, ao inves de 
cliente de determinada agencia. uma vez 
que, estando as agendas interligadas, o 
cliente pode utilizar qualquer uma, 
como se estivesse operando na propria 
agencia onde tern conta. 

Segundo Sarmento, a primeira reacao 
do publico do Itau frente as novas tec- 
logias do setor bancario foi de curiosi- 
dade, "depois houve um grande aumen- 
to na demanda, e hoje o cliente criou o 
habito de fazer seu proprio controle de 
conta, e ele descobriu tambem que pode 
ser atendido por outras agendas que nao 
a sua". 




Banco Etetronico 



Nos minimos detalhes, o Banco Itau procura passar a seus clientes a ideiu do Banco Etetronico. 
Nafoto, a capa de um taldo de cheques. 



AGENCIA X BANCO 



Segundo Gilberto Dib, diretor da 
Tecnologia Bancaria, o total dos saques 
realizados durante os finais de semana 
em Sao Paulo, onde ha" maior numero de 
ATMs instaladas (nove), atinge a uma 
media de CrS 180 milhoes. Isto prova a 
boa receptividade a este tipo de servigo, 
que chega a provocar filas em frente a 
determinados quiosques. Dib explica 
que ainda hoje as pessoas sentem certa 
dificuldade em lidar com este tipo de 
mdquina, mas a Tecnologia Bancaria 
mantem uma linha direta em cada 
quiosque com um plantao na sede da 
empresa para esclarecer eventuais duvi- 
das."Nossa decisao pelas maquinas da 
Sid tambem foi em consequencia a este 
fato, ja" que elas possuem mensagens 
sonoras para esclarecimentos", completa 
Dib. 

E ampliando seus servicos ligados a 
rede bancaria, a Tecnologia Bancaria vai 
langar, no segundo semestre de 84, ter- 
minais de compras do Banco 24 Horas, 
que serao instalados em estabelecimentos 
comerciais. Esses terminals executam 
servigo de transferencia eletronica de 
fun dos e, com o mesmo cartao do Ban- 
co 24 Horas, o cliente podera" pagar suas 
compras sem cheque ou dinheiro, e o 
de"bito em sua conta e" automatico. 



processo de automagao desenvol- 
vido pela Itautec para o banco Itau co- 
megou em 79, com a implantagao de 
terminals ligados on line aos oito 
computadores IBM 4341 do CPD do 
banco. Hoje, nada menos que seis mil 
terminais estao ligados aos equipamen- 
tos do CPD do Itau, ai' inclui'dos os ter- 
minais de caixa; terminais de clientes e 
terminais fornecedores de extratos; e 
das 900 agendas em todo o Brasil, 300 
ja sao eletronicas. A rede composta 
pelos equipamentos de grande porte e 
terminais do Itau processa cerca de 2 
milhoes de informagoes por dia, "com 
tempo de resposta de menos de 3 segun- 
dos". Segundo Luiz Eduardo, agora, 
com a aprovagao pela SEI do projeto 
para a fabricagao de super minis da 
Itautec, "a iddia € utilizar estes equipa- 
mentos como Jitermediarios entre os 
terminais de agendas e o CPD". 

A Itautec desenvolve todos os equi- 
pamentos de automagao utilizados pelo 
banco Itau, desde os terminais ate as 
ATMs. Hoje, o Itau possui 20 ATMs ins- 
taladas, e ate o final do ano a previsao 6 
de atingir a marca de 90 maquinas em 
funcionamento no pr6prio Itau, alem de 
outras 10 ja" vendidas pela Itautec para 
outros bancos. 

O processo de automagao do Itau 
preve, numa primeira etapa, tornar ele- 
tronicas todas as agendas ligadas a gran- ,*, 
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AUTOMAQAO BANCARIA 



des centros urbanos e, em seguida, auto- 
matizar agendas de centros menores, 
com o controle regional intermediario 
entre agendas e CPD provavelmente 
sendo realizado por equipamentos como 
super minis ou supermicros. Ainda se- 
gundo Luiz Eduardo Sarmento, com a 
automacao, "os funcionarios que antes 
ficavam ocupados com sen^os infernos 
passaram a ter mais tempo para dedicar 
ao cliente." Ele afirma que a automa^o 
de forma alguma gerou dispensa ie fun- 
donarios; todos foram treinados para 
lidar com os novos equipamentos. "A 
razao basica que leva os bancos a se 
automatizarem nao 6 economia de 
mao-de-obra, mas sim o oferecimento de 
novos servicos", enfatiza. 

ITAUFONE 

Itau foi o primeiro banco a ofere- 
cer a seus clientes o servico de saldo 
pelo telefone atraves da URA — Unida- 
de de Resposta Audivel. A URA, tam- 
bdm desenvolvida pela Itautec, faz com 
que qualquer telefone passe a atuar 
como um terminal para efeito de pedido 
de saldo. cliente liga para o mimero 
de acesso ao CPD do banco, disca o 
mimero de sua conta e, em seguida, o de 
sua senha. equipamento faz, entao, a 
conversao da informacao digital para 
informacao falada, atraves de um sinteti- 
zador de voz. Itau recebe, em me'dia, 
mais de 20 mil telefonemas diarios de 
pedido de saldo. 

Outro servico ao qual tambem est<t 
ligado o Itau e o videotexto, e o cliente, 
de posse do terminal em casa ou no es- 
critdrio, tern acesso a todas as informa- 
c6es fornecidas pelo terminal da agen- 
da, ale'm de dados sobre cobran?a de 
titulos etc. 

E o Itau tambe'm nao ficou atr£s na 
produ9ao de terminais de transferencia 
de fundos. Os primeiros destes termi- 
nais, fabricados pela Itautec, foram for- 
necidos ao Credicard e ja estao instala- 
dos no Shopping Center Eldorado, em 
Sao Paulo, para recebimento de cartoes 
de crddito. A rede deverd ser estendida 
para operar tambem com cartdes magne- 
ticos dos bancos filiados ao Credicard, 
inclusive o Itau. 

Segundo Luiz Eduardo Sarmento, 
deverao haver, de inicio, tres redes de 
terminais de transferencia de fundos: a 
dos bancos filiados ao Credicard; a dos 
que compSem o grupo Tecnologia Ban- 
ciria e a do Bradesco. E, na pritica, sSo 
estas os grupos que }£ vem atuando nes- 
sa area, que engloba automa9ao bancaria 
e automa9ao comercial. 

BRADESCO INSTANTANEO 

Bradesco possui hoje cerca de 80 
terminais de transferencia de fundos ja 
instalados nas lojas do Shopping Center 
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Telecompras 

Proieodo para so nSSdo m*> aos cms * 

lops, pogos de aasobru rnaoaanes supermercado'. 
e aires esaOetocircrtos cantata, o Tetampos 
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conun QuepafcssusadonunMnerteourdoo 
Tsnvdt nlo estt sendo CP WJ B 

o*r* paga sue conpns com o Cartao 
Bradesco nsarcteo c. unedaamertf o valor 
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o pagamenlo de desoesas arofe do CarUo Braosco 
(decomprasl-Scatrafk) 

AMm ae ia a J Mttt r au»iy<aemusode 
cneoues ou Oftwo, o leiecompras anoa tomece 
irterma^oes de satdos dp cono correne ou poupanca 
aBaWtoacacSoperataOreakala 




Propaganda do 

TELECOMPRAS, 

um servifo do 

Bradesco 

Instantdneo . 



Iguatemi, em Sao Paulo. Os terminais te- 
lecompra, fabricados pela empresa pau- 
lista Digilab, possuem teclado destac£- 
vel, ligado por cabo, e um pequeno vi- 
sor, usados pelo cliente para verificar o 
valor da compra e autorizar o de"bito. 
Com a implanta9ao do terminal tele- 
compra Bradesco, as compras atraves de 
cartao magn^tico deverao atingir um 
volume significativo, ja que mais de dois 
milhoes e meio de clientes do banco 
possuem esse tipo de cartao. 

Adotando uma poh'tica diferente dos 
demais bancos, que em geral distribui- 
ram cartoes para clientes especiais, no 
Bradesco qualquer cliente pode retirar 
seu cartao no banco, passando a ter 
acesso as facilidades que este oferece, 
entre as quais o telecompra. "0 cartao 
para n6s e uma esp^cie de veiculo para 
que o cliente possa adentrar na automa- 
9§o", explica Luiz Carlos Trabuco, Dire- 
tor de Marketing do banco. E o Brades- 
co partiu entao para a distribui9ao ma- 
ci9a de cart5es, o que, alem de gratificar 
o cliente, como ressalta Trabuco, tam- 
bem auxilia as pessoas semi-alfabetiza- 
das que tinham dificuldade em assinar 
cheques, opera9ao que tornou-se desne- 
cessaria. 

Alem do terminal telecompra, o siste- 
ma Bradesco Instantaneo inclui a insta- 
la9ao de ATMs; o TeleBradesco e a auto- 
ma9ao interna das agendas. O Bradesco 
possui hoje nove ATMs instaladas, entre 
Sao Paulo e Rio de Janeiro, todas fabri- 
cadas pela Fujitsu, e ate" o final do ano 
estd prevista a instala9§o de 30 ATMs, 
estas ultimas ji encomendas a Sid. Se- 
gundo Trabuco, o consumidor quando 
ve uma ATM se considera diante de uma 
agenda, e ja" a utiliza como tal. 

O TeleBradesco 6 um servi90 de im- 
planta9ao de terminais, hoje da marca 
IBM, em fase de transferencia para Sid 
3000, dentro das empresas, para obten- 
9ao de informa96es como cobran9a de 
titulos, entre outras. TeleBradesco 
atua tambem a nivel residencial, para 
clientes que possuem terminais de video- 
texto. Alem de ser fornecedor de servi90 
do sistema, o Bradesco desenvolveu um 
sistema privado de videotexto, que pos- 
sibilita aos clientes que possuem termi- 
nais o acesso direto ao computador cen- 
tral do banco sem sair de casa. Na opi- 
niao de Luiz Trabuco, o videotexto 6 



um instrumento irreversivel e definitivo, 
e cabe aos homens de marketing utiliza- 
lo de forma criativa. 

processo de automa9§o no Brades- 
co congou em 1961, quando o banco 
introduziu computadores no seu proces- 
samento. Nas decadas de 60 e 70, o 
Bradesco montou um grande Centro de 
Processamento de Dados para agilizacao 
dos servi9os, e este processo, segundo 
Trabuco, chegou a ser sentido pelo 
cliente, ainda que de forma indireta. E 
foi entre o final da de"cada de 70 e o 
come90 dos anos 80 que teve inicio uma 
nova fase, com o cliente operando ter- 
minais dentro das agendas. 

Este ano, o Bradesco adquiriu um 
IBM 3084, o que existe de mais moder- 
no em termos de equipamento de gran- 
de porte, com 4 CPUs, 64 Mbytes de 
memoria e capacidade de processamento 
de 20 milhoes de instru96es por segun- 
do: um equipamento robusto para aten- 
der os 16 milhSes de correntistas espa- 
lhados pelo pais em 1.500 agendas. 
Destas, 300 j<t sao agendas instantaneas, 
todas interligadas e trabalhando, cada 
qual, com um minicomputador Sid 
4800, que executa o trabalho de inter- 
media9ao entre a agenda e o CPD. Ao 
todo, segundo dados do Departamento 
de Marketing do banco, hoje ja existem 
mais de dez mil terminais ligados ao 
CPD. 

O Bradesco orgulha-se tambem de 
possuir a maior agenda eletronica do 
Brasil, a agenda Nova Central, situada 
na Av. Ipiranga, centro de Sao Paulo, 
com 100 mil correntistas. Apenas nessa 
agenda, 130 terminais — entre terminais 
de caixa, de cliente e terminais de forne- 
cimento de extrato - estao ligados a um 
unico minicomputador. Todo o sistema 
Bradesco Instantaneo esta interligado on 
line, e o processamento se d£ na mesma 
hora que esta sendo efetuada a transacao. 

Sem diivida podemos afirmar que o 
setor bancario 6 uma das dreas onde a 
automa9ao vem se desenvolvendo com 
maior rapidez, num processo vinculado 
as necessidades dos bancos nacionais e 
a nossa realidade. E em breve andar com 
dinheiro no bolso pode virar coisa do 
passado... ■ 



Texto: Stela Lachtermacher 
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O Governo prepara-se para regulamentar a 

automaoao bancaria. 

Os grandes bancos, clientes da BK, ha muito jd 

elegeram o NBK Serie V, o No-Break da BK, como 

equipamento indispensavel para manter os 

terminals e os computadores em funcionamento 

ininterrupto: 
Banco Nacional - 



Banco Nordeste do Brasil - Banco Economico 
Banco do Estado do Amazonas - Banco do Estado 
do Pernambuco - Banespa - Banco lochpe 
Banco do Brasil - Bamerindus - Finasa - Citibank 
Banorte - Banco AAaisonnave - Banco Noroeste 
Banco Boa Vista - Banco de Credito Real frAG 
BCN - Proban - Caixa Economica Federal 
Caixa Economica Estadual RS 



CONSUUE A BK. ELA SOLUCION A. 

BK VENDE CONFI ABILIDADE. 
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Matriz: Porto Alegre - Av. J060 Ferreira Jordim. 138 - Tel. (0512) 40-3611 - Telex (051) 2.303* Filiais: S6o Paulo: Av. IndiaruSpolis, 2171 Tels. (011)275-4510 e 275-5817 

Telex (01 1) 37.304 • Rio de Janeiro: Rua Visconde de Inhauma, 58 - Sala 1002 - Tel. (021) 263-0132 • Representantes: RS: Porto Alegre (0512) 49-2550 / Santo Rosa (055) 

512-1399 / Bage (0533) 42-4546 - SP: Campinas (0192) 42-7333 BIP ML. 08 - RJ: R. de Janeiro (021 ) 240-2876 - SC Florian6polis (0482) 44-7864 - PR: Curitibo (0412) 66-5013 e 

66-9851 / Londrina (0432) 23-3584 - MO: Belo Horizonte (031 ) 332-7844 e 335-5266 - Df: (0612) 44-9574 - GO: Goidnia (0622) 25-8226. 23-3334 e 25-2366 - ES: Vit6ria (0272) 

23-1 124 - BA/SE: Salvador (0712) 41-3091 - PE/Al/Pl: Recife (0812) 22-4547 - RN: Natol (0842) 31-1266 - a/ PI: Fortaleza (0852) 24-3440 - MA: S60 luiz (0982) 22-0185 

PA: Belem (0912) 24-3224 - AM: Monaus (0922) 37 1793 e 37-1033 - MT: Cuiab6 (065) 383-1270 - MS: Campo Gronde (0673) 83-1270 e 83-1272 



Automa^ao de escritorios 
e destaque na ll a FUSE 



Ap6s uma paralizacSO de oito 
anos — tempo em que o pais 
comecou a viver urn maior de- 
senvolvimento na £rea de escrit6rios e 
sua automacSo - a FUSE - Feira In- 
ternational de Utensflios e Servicos de 
Escrit6rio voltou para mostrar o que 
ha" de novo no setor. Organizada pela 
Alcantara Machado, a feira realizou-se 
de 20 a 24 de junho, em Sa"o Paulo, 
com a apresentacao de microcomputa- 
dores e perife'ricos (estandes da Prol6- 
gica, Dismac, Scopus, Cobra, Poly- 
max e Unitron, entre outros), equi- 
pamentos de telecomunicagOes, micro- 
filmagem, videotexto, m6veis e mate- 
rial para escrit6rio. 

AUTOMACAO DE ESCRITORIOS 

A Telesp mostrou os terminais de 
videotexto nacionais para escrit6rio, 
fabricados pela Splice, Digitel e Parks, 
enquanto que a Brascom apresentou a 
sua versao de Office Automation, um 
pacote de aplicativos que inclui, en- 
tre outros, agenda pessoal e de compro- 
missos, controle de documentos e mala 
direta. Outra novidade apresentada foi 
o sistema de processamento de texto 
desenvolvido pela Forma Computado- 
res, e que utiliza interface para mi- 




O Edit Video, sistema de processamento de textos da MDA, tern tela dealta densidade (52 
linhas de 80 caracteres), teclado com funcoes especfficas, membria interna para armazenar 
cerca de 20 pdginas, uma ou duas unidades de disquetes de5 1 /4 "e interface para impressoras 
de margarida ou matriciais. 



quina de escrever eletronica Remtro- 
nic 2000. Ja" a Compo do BrasiJ lan- 
cou dois monitores de video, um mo- 
nocrom^tico e outro colorido, ambos 
compativeis com o IBM PC, ale'm dos 
micros da Itautec, Microtec e Scopus. 
No seu estande, a Magnex demons- 
trou a possibilidade de transformar o 
Manager I em terminal inteligente pa- 
ra equipamentos IBM e Burroughs me- 





Os novos mddulos para a 
HP-41CV, da Hewlett-Packard, 
permit em o funcionamento da 
calculadora com uma sirie de 
acessdrios, tais como unidades 
impressoras e de armazena- 
mento em flta cassete (foto). 
Dentre esses mddulos, a 
empresa mostrou o HP-IL, que 
interliga acessdrios num 
looping de comunicacoes, e o 
Modulo de Funcdo de Tempo 
HP82182A, que tambim 
permite usar a calculadora 
como alarme para lembrar 
encontros, reunites etc. 



diante o uso de uma placa de protoco- 
lo operacional. A Elebra, por sua vez, 
apresentou o MC 6000-GC, m6dulo de 
expansao que atribui a impressora Mo- 
nica resolucffo graTica e melhor quali- 
dade para impressSo de cartas com ma- 
triz densa. Entre os suprimentos, a 
Memphis lancou uma mesa especial 
para microcomputadores. 

CONGRESSO INTERNACIONAL 

Paralelamente, a FUSE, realizaram- 
se o I Congresso Internacional de Au- 
toma9a"o de Escrit6rios, que reuniu es- 
pecialistas nacionais e estrangeiros na 
area, o Infobrds/84 - Encontro de 
Informdtica Brasileira, que destacou o 
microcomputador e seu uso, e tambe'm 
palestras do grupo de apoio em Infor- 
mdtica a pequena empresa. 

No Congresso de Automaca"o, fo- 
ram discutidas as duas tendencias que 
atualmente norteiam as empresas em 
vias de se automatizarem : a centrali- 
zacdo de informacoes, com o uso de 
terminais como estacoes de trabalho 
ligadas ao equipamento central da em- 
presa; e o processamento descentrali- 
zado, baseado na implantac^o de mi- 
crocomputadores nos varios departa- 
mentos que passam, assim, a ter uma 
atuacSo mais autdnoma, independente 
do computador central, podendo 
mesmo estar ou na"o ligado a este, con- 
forme a opcao de cada empresa. 



Mesa da Memphis, especial para microcomputadores 



Texto: Cl&udia Ramalho 
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MAIS SUCESSO PARA VOCE! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voce* o mais moderno ensino 

tecnico programado e desenvolvido no Pafs. 



CURSOS DEAPfRFEKOAMENTO 



OJRSO DE a£TR6NICA DIGITAL 
I 



«.%• izj'imimx 



Sao mais de 140 apostilas com mformacoes completas e sempre 
atualizadas. Tudo sobre os mais revolucionano CHIPS. E voce 
recebe. alem de uma solida formaca"o teorica. KITS elaborados 
para o seu desenvolvimento pratico Garanta agora o seu future 
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CEDM 20 KIT 
de Ferramentas. 
CEDM 78 KIT 
Fonte de Alimentacao 
5v/1A. CEDM-35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM-80 

MICROCOMPUTADOR 
Z80 ASSEMBLER. 




CURSQ DE 

PROGRAMAQAO em bask 



Este CURSO. especialmente programado, oferece os 
fundamentos de Lmguagem de ProgramacSb que domma o universo 
dos microcomputadores. DinSmico e abrangente. ensina desde o BASIC 
basico ate o BASIC mais avancado. inclufndo nocoes basicas sobre 
Manipulacao de Arquivos, Tecnicas de Programacao, Sistemas de 
Processamento de Dados. Teleprocessamento, Multiprogramacao e 
Tecnicas em Linguagem de Maquina. que proporcionam um grande 
conhecimento em toda a 3rea de Processamento de Dados 





KIT CEDM Z80 

BASIC Cientlfico. 

KIT CEDM Z80 

BASIC Simples. 

Gabanto de Fluxograma 

E 4. KIT CEDM SOFTWARE 

Fitas Cassete com Programas. 



CURSO DE 

ELETRONICA E AUDK) 



Metodos novos e ineditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova licSo, apostilas ilustradas 
ensinam tudo sobre Amplificadores, Caixas Acusticas. Equalizadores. 
Toca-discos. Sintonizadores AM/FM, Gravadores e Toca-Fitas. Cipsulas 
e Fonocaptadores. Microfones, Sonorizacao. Instrumentagao de Medidjs 
em Audio, Tecnicas de Gravacao e tambem de Reparacao em Audio. 




■ • 





* 




•»=••• 



CEDM 1 KIT de Ferramentas. CEDM 2 KIT Fonte de AlimentapSo 
+ 15 15/1A. CEDM-3 KIT Placa Experimental 
CEDM 4 KIT de Componentes. CEDM 5 • KIT Pre amplificador 
Estereo. CEDM 6 KIT Amplificador Estereo 40w. 



Voce mesmo pode desenvolver um ritmo proprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado facil. E 
para esclarecer qualquer duvida, o CEDM col oca d sua disposicao uma 
equipe de professores sempre muito bem acessorada. Alem disso, voce 
recebe KITS preparados para os seus exerefcios prAticos. 

Agil, moderno e perfeitamente adequado a nossa realidade. os CUR- 
SOS CEDM por correspondencia garantem condicfies ideais para o seu 
aperfeicoamento profissional. 

mmumGRATis 

Vocfi tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucos dias vocS recebe nossos catalogos de apresentacao. 



L | JJ^J Avenida Sao Paulo, 718 - Fone (0432) 23-9674. 
!_.U.'~U I CAIXA POSTAL 1642 -CEP 86100 - Londrina - PR 
CURSO DE APERFEICOAMENTO POR CORRESPONDENCIA 

Solicito o mais rapido possivel informacdes sem compromisso sobre o 

CURSO de 

Nome 

Rua 

Cidade 

Bairro CEP 

MS 



No presente, 

o Escritorio 

do Futuro 



Automacao no escrit6rio: so mem o Icipis e o papel e o 
profissional tern todo o seu tempo dedicado ao ato de 

pensar e tomar decisoes. Nao e bem assim, mas ja* 

estamos mais pr6ximos de uma modernizacao radical 

na comunicacao dentro do escrit6rio. 



Ha poucos anos atras, por vol- 
ta do final da de'cada de 70, 
falava-se em escritorio do 
futuro como algo completa- 
mente distante de nossa realidade. Dan- 
do asas a imagina?ao, o escritorio do 
futuro era pintado por muitos como 
aquelas salas especiais intergalaticas, lo- 
tadas de maquinas enormes, como via- 
mos nos filmes de ficfao cienti'fica. 

Hoje, esse futuro do qual falavamos 
chegou, e o novo escritorio, com poucos 
exemplares ainda no Brasil, se mostra 
bastante diferente do que imagindva- 
mos. Nada de secretarias robos, camaras 
de despressuriza?ao ou qualquer coisa 
do genero. Ha simplesmente a enfase em 
tornar cada vez mais eficiente um dom 
natural do homem: a comunicacao. Esta 
e" a principal meta do escritorio automa- 
tizado, que busca em ultima instancia 
liberar o ser humano de tarefas corri- 
queiras e repetitivas, de modo que lhe 
sobre tempo para o unico ato, que o dis- 
tingue dos demais animais: pensar. 

Muitos apregoavam que o escrit6rio 
do futuro seria aquele onde nao ha- 
veria necessidade de lapis e papel, e este 
e realmente um dos primeiros sintomas 
do escrit6rio automatizado. Nao que 
estes objetos estejam em fase de extin- 
?ao, mas sua utUizacao sera" cada vez 
menor com os novos habitos que a auto- 



macao traz. Ao inves dos milhoes de me- 
morandos que circulam diariamente na 
maioria das empresas, as mensagens pas- 
sarao a ser enviadas atraves de estacoes 
de trabalho, terminais ou microcompu- 
tadores, instalados nos varios departa- 
mentos e nas mesas dos gerentes. 

Outra novidade 6 o sistema de video- 
texto, que permite ao usuario, atraves 
do telefone, acessar um banco de dados 
que dispoe das mais variadas informa- 
96es, desde previsao do tempo ate o 
noticiano do dia e cota95es da bolsa de 
valores. Alguns bancos tambe'm )£ parti- 
cipam do sistema videotexto, e desta 
forma os usuarios do sistema tern aces- 
so, atraves do terminal instalado no es- 
crit6rio, as mesmas informa9oes dispo- 
niveis nos terminais de consulta que 
vem sendo instalados nas agendas ban- 
carias. 

Neste processo de automa9ao de es- 
critorios ji se apresentam duas tenden- 
cias distintas, tra9adas pelas empresas de 
acordo com sua politica interna. Estas 
tendencias seriam basicamente sistemas 
centralizados de automa9ao e sistemas 
descentralizados. Em algumas empresas, 
o processo de automa95o dos escritorios 
vem ocorrendo atraves da instala9ao de 
terminais de video, todos ligados ao 
computador central, o que denota um 
sistema centralizado, pois os terminais, 



mesmo que inteligentes, chegam a pro- 
cessar as informa96es, mas nSo atuam 
como esta96es autonomas. Ja o sistema 
descentralizado exige a instala9ao de 
microcomputadores, que tanto podem 
atuar como terminais do equipamento 
central da empresa como tambe'm exe- 
cutar seu proprio servi9o,recebendo da- 
dos, processando-os e enviandoos para 
outro equipamento, se for o caso. 



"No ultimo 

seculo nao houve 

nenhuma grande 

tra nsfo rmaqdo 

em term os de 

evolucao nos 

escritorios" 



Aautoma9ao de escritorios nao 
representa propriamente um 
conceito. mas um processo 
continuo de utiliza9ao de no- 
vas tecnologias. A opiniao 6 de Jorge 
Coimbra, estudioso da area e que presi- 
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Figura 1-0 projeto do Escritdrio do Futuro do arquiteto Henrique Cambiagui Filho. 



diu o 19 Congresso International de 
AutomacSo de Escrit6rios, realizado no 
final de junho, em S5o Paulo. Coimbra 
faz uma revelacao surpreendente: segun- 
do ele no ultimo seculo na"o houve ne- 
nhuma grande transformagao em termos 
de evolucao dos escritorios. A explica- 
cao estd no fato de que equipamentos 
Msicos como ldpis e papel, maquinas de 
escrever e telex ja" existiam ha cem anos 
atras, e as inovacoes somente aparece- 
ram com o surgimento das maquinas co- 
piadoras e com o computador. Segundo 
Coimbra, ate bem pouco tempo atras o 
computador era voltado exclusivamente 
as tarefas estruturadas, isto e\ atividades 
que o homem define previamente. Mas a 
introducao do microcomputador no es- 
crit6rio proporcinou a utilizagao desses 
equipamentos em tarefas semi-estrutura- 
das, como, por exemplo, analise de sen- 
sibilidade, que determina o comporta- 
mento dos dados de acordo com a varia- 
gao de determinados parametros. 
"Quando nao haviam microcomputadores 
em escrit6rios, para cada variacao de pa- 
rametro que se quisesse medir, era ne- 
cessario elaborar um sistema especifico. 
Hoje, com o micro, os dados sao modi- 
ficados no proprio lugar, na mesma ho- 
ra", explica Coimbra. 

Segundo Jorge Coimbra o primeiro 
passo significativo para automagao de 



escritorios se deu com o aparecimento 
dos micros voltados para processamento 
de textos. passo seguinte foi a utiliza- 
gao de planilhas eletronicas nos prdprios 
micros; e o terceiro grande passo neste 
setor foram os bancos de dados em mi- 
crocomputadores. Atualmente, as mais 
recentes inovagoes ficam por conta da 
integra^ao de varios programas como, 
por exemplo, de planilhas eletronicas 
que disponham de banco de dados e 
processador de textos. 

Mas com todas essas inovacOes, a co- 
municacao entre os integrantes do es- 
critdrio continua sendo um dos pontos 
chave inclusive para sua automacao. Em 
funcao disso, Coimbra afirma que o 
grande salto que ird marcar definitiva- 
mente a automa9ao de escritorios sera a 
rede local, que propiciara que os micros 
conversem entre si. As redes locais de- 
verao causar inclusive uma transforma- 
9ao no comportamento do mercado de 
informatica, pois atrave's das redes, o 
custo unitario de cada equipamento se- 
ra menor para as empresas, ]& que os pe- 
rife'ricos, tais como impressoras e discos 
magne*ticos, poderao ser compartilhados 
atravesda rede. 

As redes locais darao origem tambem 
a um novo tipo de servi5o: o correio ele- 
tronico, atravds do qual as mensagens 
s§o enviadas de uma estacao de traba- 



lho, terminal ou microcomputador, a 
uma ou mais estagoes. correio eletro- 
nico vai representar uma sensivel dimi- 
nuigao de interrupgoes por causa de te- 
lefonemas e de tempo perdido em tenta- 
tivas de se dar telefonemas que acabam 
nao se concretizando. Ale"m de transmi- 
tir mensagens, o correio eletronico tam- 
bem armazena estas mensagens, que fi- 
cam guardadas para eventuais consultas 
posteriores. 

Na opiniSo de Coimbra, no processo 
de automacao de escritorio, o usuario 
devera fazer uma utilizagao inteligente 
dos equipamentos de que dispSe. Como 
exemplo, ele cita a integragao do micro 
com o sistema de PABX, para aproveitar 
os cabos de linhas telefonicas. Coimbra 
afirma que os modernos equipamentos 
de PABX vao pcrmitir que se transmita 
atraves deles alem da voz, tambdm da- 
dos e ate imagens, com a implantagao 
do fac -simile. fac-simile e um equipa- 
mento que, acoplado ao telefone, fun- 
ciona como uma copiadora a distancia, 
permitindo a transmissao e recepgao, 
tanto de textos como de imagens. 

Para Jorge Coimbra, os trabalhos que 
mais se transformam no escrit6rio auto- 
matizado sao basicamente a preparacSo 
e o encaminhamento de corresponden- 
cia. Aldm disso ele acredita que essa mu- 
danga ocorra mais a nivel qualitativo do. 



MICRO SISTEMAS, agosto/84 



71 



NO PRESENTE, O ESCRIT6RIO DO FUTURO 



que quantitative j£ que o novo escrito- 
rio conta com mais recursos, o que pos- 
sibilita maior qualidade no produto final 
da empresa. 

Coimbra nao acredita que a automa- 
?ao de escritorios venha a gerar dispen- 
sa de funcionarios. Os empregados de- 
verao ser treinados para as novas fun- 
coes que passarao a executar. Alem dis- 
so, ele ressalta a geracSo de empregos na 
industria fornecedora dos equipamentos 
que compoem o escrit6rio automatizado. 



"Adquirimos 

o hardware sem 

nos preocupar 

com o software 

e acabamos 

com um ele f ante 

branco" 



Em fevereiro de 1982, MICRO 
SISTEMAS publicou uma ma- 
teria sobre o Escritorio do Fit- 
turo, abordando o caso da Ju- 
sinforma'tica, uma das primeiras em- 
presas no Brasil a automatizar seu escri- 
t6rio (veja MS n9 5, pag. 45). A Jusin- 
form&ica £ uma empresa de presta?ao 
de servi90s na area de mercado de capi- 
tals, voltada principalmente para o in- 
vestidor da Bolsa de Valores. Hoje, qua- 
se dois anos depois, Pedro Chaves Neto, 
diretor presidente da Jusinformdtica, 
considera seu escritdrio o do presente, 
ressaltando que a maioria dos escrito- 
rios ainda sao do passado e, com conhe- 
cimento de causa, faz uma avaliacSo do 
processo de automa^ao, do tipo descen- 
tralizada, pelo qual passou sua empresa. 
escritorio da Jusinforma'tica come- 
cou a se automatizar em 80, quando foi 
feito leasing para aquisi?ao de um pro- 
cessador de texto e, na mesma e'poca, 
foi instalada uma maquina copiadora e o 
sistema KS de telefone. Alguns meses 
depois, a diretoria alugou um microcom- 
putador, que seria utilizado para banco 
de dados da empresa e tambem para 



processar a contabilidade. Hoje, Pedro 
Chaves Neto avalia que a aquisic^o do 
micro naquela epoca foi superdimensio- 
nada: "Adquirimos o hardware sem nos 
preocupar com o software, e acabamos 
ficando com um elefante branco", afir- 
ma ele. Com algum tempo de uso pode 
ser constatado que o equipamento era 
pequeno para o banco de dados que es- 
tava sendo organizado, e grande demais 
para os services de contabilidade que o 
escrit6rio exigia. resultado foi a devo- 
lu?ao do micro e os servi?os foram en- 
tao repassados a empresas especializa- 
das. A contabilidade 6 feita atualmente 
por um bureau e, para o banco de da- 
dos, a Jusinform^tica passou a alugar es- 
pa90 no computador da Telesp, com 
acesso de dados atrave's do videotexto, 
do qual a empresa aldm de usuaria 6 
tambem uma das primeiras fornecedo- 
ras de service. Em breve pretendem li- 
gar uma impressora ao terminal de vi- 
deotexto para imprimir os pr6prios ser- 
vi9os da Jusinforma'tica. 

Um outro passo dessa automa9ao 
descentralizada adotada pela Jusinfor- 
ma'tica foi passar o servico de a9oes es- 
criturais para o Banco Itau, que agora 
administra tanto as a93es que a Jusin- 
formatica possui de outras empresas, 
bem como as dos acionistas da Jusinfor- 
ma'tica. Poly 101 HS, processador de 
textos da Polymax, continua sendo usa- 
do no escritdrio, entre outras coisas pa- 
ra fazer atas de assembleias. Tambem o 
telex instalado no processo de automa- 
9ao do escritorio continua em pleno 
funcionamento e Pedro Chaves Neto cita 
ainda alguns implementos que, segundo 
ele, fazem parte do escrit6rio do futuro: 
o aparelho de bip para recados, o Tele- 
card, um cartao para interurbanos a co- 
brar que sao debitados diretamente na 
conta da empresa ("evita filas e abor- 
recimentos para se fazer interurbanos") 
e um pequeno gravador de bolso para 
gravar as iddias que se tern em horas e 
locais impossiveis de se tomar nota co- 
mo, por exemplo, quando se est£ diri- 
gindo. 

Pedro Chaves jd tern pronto, inclusi- 
ve, um projeto elaborado em conjunto 
com o arquiteto Henrique Cambiagui 
Filho para o verdadeiro escritorio do 
futuro, que segundo ele deve ser com- 
posto por uma a9ao integrada de arqui- 
tetura. Este projeto preve um predio de 
dois andares em forma de estrela com 
pontas e uma drea central (veja a figura 
1). Esta Irea seria um espa90 de apoio, 
onde estariam todos os servi90S basicos, 



tais como maquinas copiadoras, telex, 
central telefonica, equipamento de mi- 
crofilmagem e um computador central. 
Comportaria tambem um auditorio,ins- 
tala96es sanitarias e servi90 de copa. 

Nas pontas que compoem a estrela 
seriam instaladas empresas associadas ou 
mesmo departamentos de uma mesma 
empresa, que fariam uso da estrutura do 
m6dulo central, o que viria a amortizar 
o custo dos servi9os. Como explica Pe- 
dro Chaves Neto, seria uma vida em con- 
dominio, ou um flat service empresarial. 

projeto contaria tambe'm com um 
sistema pneumatico de circula9ao inter- 
na de documentos. Este sistema, que 
existe na Fran9a desde o inicio do se'- 
culo, 6 composto por tubos com c£p- 
sulas nas quais sao colocados os docu- 
mentos, que atrave's de pressao sa"o en- 
viados a sala a qual se destinam. Tam- 
bem esta previsto que cada unidade, no 
caso, cada empresa ou departamento, 
possua um microcomputador multitare- 
fa, que alem de exercer as Undoes de 
micro, funcionaria tambem como pro- 
cessador de texto, terminal de telex, lei- 
tor de videotexto e terminal de video 
ligado ao computador central. 

escritorio do futuro esti pronto 
em projeto, mas ainda nao pode ser con- 
cretizado porque esbarrou numa ques- 
tao bisica: o custo. A dificuldade esta 
em encontar um terreno que comporte 
o predio, numa zona de facil acesso aos 
clientes e a um pre90 acessivel. E isso 
torna-se cada vez mais difi'cil nas gran- 
des cidades. 

Como foi dito anteriormente, a op- 
9I0 por um processo de automa9ao cen- 
tralizado ou descentralizado ira se ba- 
sear na politica adotada pela empresa. 
No caso da IBM, o processo gira em tor- 
no do computador de grande porte ao 
qual estao ligados terminals, operando 
no sistema PROFS - Professional Offi- 
ce System. Este sistema de automa9ao 
de escritorio foi desenvolvido nos Es- 
tados Unidos ha cerca de cinco anos e 
em 1981 profissionais da IBM do Bra- 
sil come9aram a realizar estudos para 
implanta9ao do PROFS aqui. Na sede da 
empresa no Rio de Janeiro, 80 termi- 
nais de video jd estao ligados ao compu- 
tador central, um 4341. Este computa- 
dor central gerenciava, ate' final de ju- 
nho, os terminals instalados na sede da 
empresa, em Sao Paulo, ainda em fase 
de implanta9§o do PROFS. Hoje, os ter- 
minals da filial paulista da IBM ja sao 
controlados pelo computador central do 
pr6prio predio onde estao instalados. 
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"E essential 

que todos os 

usuarios est e jam 

ligados a uma 

unica UCP e possam 

se comunicar 

entre si" 



Para Robert Joseph Didio, repre- 
sentante de Apoio a Marketing 
da IBM Sao Paulo, e essential, 
dentro do conceito de automa- 
9S0 de escritorio, que todos os usuarios 
estejam ligados a uma unica UCP, e pos- 
sam se comunicar entre si. "A eficien- 
cia do sistema pode ser verificada pro- 
porcionalmente a quantidade de pessoas 
que podem compartilha-lo", diz ele. 

No banco de dados central da empre- 
sa estao armazenados todos os docu- 
mentos gerados pelos terminais. Cada 
usuario do sistema possui um indice 
pessoal que informa a quais documentos 
ele pode ter acesso, geralmente aqueles 
que ele pr6prio emitiu, foi o destinata- 
rio ou recebeu copia. Assim, fica manti- 
do o sigilo do sistema. 

A implantacao do PROFS na IBM 
brasileira come90u pelo Rio e os primei- 
ros terminais foram dados as secretarias 
executivas, com os executivos utilizan- 
do-os indiretamente. Didio ressalta que 
nab se deve forcar o usuario a mudar seu 
me*todo de trabalho, pois isso pode aca- 
bar sendo prejudicial. E cita um fato 
ocorrido nesta primeira fase de implan- 
tacao do sistema, quando em um grupo 
de tres secretarias que trabalham em um 
mesmo departamento, duas se adapta- 
ram rapidamente ao uso dos terminais 
e a terceira preferiu manter o antigo 
me'todo de trabalho. Depois de algum 
tempo, ao observar as facilidades de- 
correntes da utiliza5ao dos terminais, 
a terceira secretaria resolveu aderir tam- 
be"m a nova tecnologia. 

Didio destaca que e importante ter 
disciplina na implanta?ao do sistema - a 
chamada gerencia de mudanca - que in- 
clui a preparacao para a mudanca, o 
treinamento e a padroniza?ao dos do- 
cumentos da empresa. Desta forma nab 
hi descontinuidade entre o sistema an- 
tigo e o que esta sendo implantado. 



A etapa seguinte foi a implantacao 
de terminais para um conjunto de pro- 
fissionais. Hoje, em Sao Paulo, cerca de 
dez secretarias jd utilizam o sistema, ca- 
da uma delas atendendo a tres ou qua- 
tro gerentes que indiretamente tambem 
fazem uso do PROFS. E segundo Didio, 
dentro de dois anos a maioria dos fun- 
cionarios passara a integrar o projeto. 

sistema PROFS e dirigido priori- 
tariamente a profissionais e gerentes. Se- 
gundo estudo realizado nos Estados Uni- 
dos, 13% do tempo do gerente e" utiliza- 
do em atividades criativas, sendo os ou- 
tros 87% deste tempo gastos na prepa- 
racao para tais atividades. E justamente 
um dos objetivos principals da automa- 
9ao de escritorio 6 aumentar o tempo 
dedicado as atividades pensantes. 

Para entrar no sistema, cada usuario 
tern sua senha, conhecida apenas pelo 
administrador do sistema. Por exigen- 
cia do proprio sistema, esta senha deve 
ser alterada a cada 30 dias. Entrando 
com a senha, o usuario pode utilizar 
qualquer um dos terminais autorizados. 
Depois de verificada a senha, aparece 
na tela o menu com as husoes disponi- 
veis, entre as quais a fun9ao HELP, para 
esclarecimento sobre qualquer uma das 
demaisfun95es. 

Na agenda, os compromissos do dia 
sao projetados na tela em ordem crono- 
logica. Outros usuarios podem ser auto- 
rizados a ter acesso a determinada agen- 
da, mas em caso de compromissos con- 
fidenciais estes sao bloqueados. acesso 
de outros usuarios tern como objetivo, por 
exemplo, marcar uma reuniao. No caso, 
o sistema providencia a verifica9ao das 
agendas dos usuarios que devem partici- 
par da reuniao e indica ao solicitante as 
op9oes de dia e hora mais adequadas a 
todos. 

conhecido sistema de malote tam- 
bem faz parte do PROFS, so que ele- 
tronicamente. malote recebido perma- 
nece na caixa de entrada, listado por au- 
tor e assunto na seqiiencia de chegada, 
ate que seja aberto e lido, e entao arma- 
zenado, despachado ou descartado. Uma 
outra fun9ao do sistema e o arquivo de 
documentos pendentes, que recebem 
uma data referente a quando devem ser 
tomadas providencias a respeito. Os do- 
cumentos a serem guardados no sistema 
sao indexados por data, autor, assunto 
e palavra-chave , o que facilita a pesqui- 
sa atrave's de qualquer um desses itens. 

Outras fun95es do PROFS incluem 
prepara9§o de memorandos, distribui9ao 
eletronica de documentos e revisao, 



atrave's de um dicionario interno com 
cerca de 150 mil palavras, disponivel 
por enquanto somente em Ingles, que 
verifica se a palavra esta escrita correta- 
mente; caso nab esteja, o pr6prio siste- 
ma fornece a grafia correta. PROFS 
permite ainda que se mande mensagens 
para sedes da empresa em outros estados 
ou mesmo outros paises que utilizem o 
mesmo sistema. 

E refor9ando o que foi dito por Jorge 
Coimbra, Didio afirma que, observando- 
se o escritorio do passado e o de hoje, 
pode ser constatado que o processo nab 
mudou, mudaram apenas algumas ferra- 
mentas. "Nao houve na realidade mu- 
dan9as significativas no modo de traba- 
lho, s6 evoluiu a tecnologia das ferra- 
mentas, e o objetivo da automa9ao de 
escritorio nao e introduzir mais uma fer- 
ramenta, mais sofisticada, e sim mudar o 
enfoque", conclui. ■ 



Texto: Stela Lachtermacher 
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O mercado amadurece 



Um usuario maisexperiente, que chega 
em busca de solu?ao para um proble- 
ma especifico (por exemplo, uma 
Contabilidade com tantos lancamentos e tal 
piano de contas), em vez de estar preocupado 
apenas com as caracteri'sticas do equipamen- 
to. Assim Marco Antonio Rossi, gcrente de 
vendas da Unitron, classificou, de modo geral, 
o publico que visitou o estande da sua empre- 
sa no Micro Festival, realizado de 4 a 7 de ju- 
lho no Centro de Convencoes do Hotel Na- 
cional, no Rio de Janeiro, identificando ncssa 
atitude uma demonstracao de maturidade en- 
tre os compradores de micros. 

Marco Antonio, alias, nao foi o unico ex- 
positor satisfeito com os resultados da Feira. 
Eduardo Pamos e Marcelo Batista, respectiva- 
mente, da Sysdata e da Digitus, ambos fabri- 
cantes, bem como Paulo Roberto Zornig, da 
loja Comicro, entre outros, tambe'm concor- 
daram com Ernesto Camelo, diretor da Com- 
pumicro, outra loja carioca. para quern o pu- 
blico de aproximadamente 15 mil pessoas que 
la esteve nos quatro dias de exposic,ao foi 
"tanto quantitativa quanto seletivamente mui- 
to bom' . 



A FORCA DO SOFTWARE 



Essa procura por solucoes levou os visi- 
tantes em direcao ao software e aos ser- 
vices, ameacando bastante a tradicional 
hegemonia do hardware sobrc as atcn^oes. Al- 
guns produtos mostraram-se verdadeiros "cam- 
peocs de bilhcteria", como foi o caso do siste- 
ma de gerenciamento de dados dBase II, que 
lotou a tal ponto o auditorio onde se realizava 
uma palestra a seu rcspeito, que obrigou os 
promotores do evento a reeditarem a palestra 
em outro horario para dar oportunidade aos 
que ficaram de fora. Na Feira, o dBasse II 
tarn bem atraiu gente para muitos estandes. 

A for^a do software - que, no fundo, e o 
principal rcsponsavel pclo sucesso de vendas 
de quaiquer equipamento - ja sc esta fazendo 
scntir junto aos fabricantes. A Unitron, por 
exemplo, aproveitou a ocasi§o para lancar o 
Unitron Software, marca sob a qual a emprcsa 
comercializa programas existentes no mercado 
que, apos testados e homologados, recebem 
um tratamento de produto final (documenta- 
cao, embalagem etc.) e sao vendidos pela rede 
dc distribuidores da empresa. A Unitron, po- 
re'm, nao para ai': esta elaborando um catalogo 
geral com todos os programas disponiveis no 
mercado c compati'veis com o seu equipamen- 
to, da linha Apple. 

Outros fabricantes tambe'm proclamaram a 
quantidade de software de que dispSem os 
seus computadores, tais como a Cobra (mais 
de 150 aplicativos para os modelos 305 e 210) 
e a Itautec (cerca de 160, para o 1-7000 e seus 
"filhos", o Junior e o Junior E). Isso sem falar 
na possibilidade de rodar programas compati'- 
veis com o CP/M (facilidade essa ja oferecida 
como caracten'stica standard ou opcional por 




O microcomputador Senior S-100, da Racimec. em duas vers6es:portdtil. com teclado 
simplificado e visor de cristal liquido na tampa (esq.) e para uso na empresa. com video de 
fdsforo verde e teclado profissional. A direita, a nova impressora Carta, de 40 colunas e 120 cps. 



divcrsas m areas), o que da acesso a maior 
bibliotcca de software existente em todo o 
mundo. 

Dentro das familias especi'ficas de equipa- 
mentos, a linha Apple continua com a lideran- 
9a. com a maior oferta de programas para as 
mais variadas finalidades. e cada soft house 
esforca-se para criar caracteri'sticas capazes de 
distinguir o seu produto numa verdadeira flo- 
rcsta de folhas de pagamento, contabilidade, 
controle de estoque etc, ou, ainda, exploran- 
do o filao das aplicacdcs muito especi'ficas ou 
dos programas sob medida. 

Completando o quadro, viu-se ainda no 
Micro Festival a difusao e a procura cada vez 
maior dos softwares considerados fundamen- 
tals para todo usuario de micro: a planilha ele- 
tronica (Visicalc e seus seguidores), o sistema 
de gerenciamento de banco de dados (como 
o dBase II). processador de tcxto (Wordstar, 
Super Scripsit etc.) e os sistemas com boa re- 
solucao, para fazer graficos. 

A EXPANSAO DOS 16 BITS 

O software, tambe'm pelo que sc pode ob- 
servar no Hotel Nacional-Rio, esta aju- 
dando os microcomputadores de 16 
bits a se firmarem no mercado, ajuda essa que 
deve ser creditada, cm grande parte, a um pro- 
grama bastante especial: o Lotus 1,2,3, pode- 
rosa combinacao de planilha eletronica, gera- 
dor de graficos e gerenciador de arquivos. 
Alem dos fabricantes, diversas empresas de- 
monstraram programas para compati'veis com 
IBM PC. tais como a Gappy, a Compuccntcr 
e a Computique. 

O fato e que os micros de 16 bitsestao gra- 



dativamente ganhando terreno. Ja sao seis as 
marcas disponi'veis - Ego, da Softcc; Nexus, 
da Scopus: Link 727, adquirido em OEM da 
Microtec e comercializado pela Link (esses 
tres primeiros mostrados no Micro Festival); 
PC 2001. da Microtec; Z-2200. da Zanthus: 
Racimec M 101 - e ate o final do ano o "clu- 
be dos 16 bits" devera receber importantes 
adcsSes. como a da Itautec, conforme assegu- 
rou Fernando Fcrrane, no estande de emprc- 
sa. "Ano que vem. muitos fabricantes vao 
soltar projetos" nessa area, previu Robert 
Janis Katgevics, da Cientifica, rcpresentante 
Brascom no Rio de Janeiro, adiantando que 
entre essas firmas encontra-se tambe'm a 
Brascom. 

Ale'm dos micros de 16 bits, outra forte 
tendencia do mercado brasileiro diz respeito 
as redes locais c, ncsse sentido. nao faltaram 
exemplos no Micro Festival. A comeqar pela 
Cetus. empresa independente especializada 
no assunto. Utilizando uma topologia serial 
em BUS, que permitc total dcscentraliza^ao 
e independencia dos elementos que a com- 
poem. a rede Cetus permite interligar ate 
255 computadores e perife'ricos dos mais di- 
ferentcs tipos (micros dc variadas tecnologias, 
disquetes, discos n'gidos, imprcssoras seriais e 
de linhas), possibilitando que os computado- 
res falem entre si. troquem arquivos e aces- 
sem arquivos comuns. 

Quanto aos fabricantes, um numero cada 
vez maior deles esta incluindo na sua rela^ao 
dc produtos a possibilidade da formacao de 
redes, de variados portes e caracteri'sticas. 
Desta vez, foram a Prologica e a Digitus, que 
vieram juntar-se ao cfrculo ja formado pela 
Scopus. Dismac e Polymax. A Brascom lanqa 
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O JR III da Sysdata tern 
teclado professional, e 
compativel com o TRS-80 
modelo III e pode rodar 
CP/M 2.2 com interface. 
O modelo anterior, JR I, 
continua em sua versdo 
econdmica, mas pode 
transform arse no JR III com 
a adicdo de uma placa de 
circuito. 





a sua em outubro. 

Dcstinada a interligar (por cnquanto, oito; 
futuramente, ate 255) computadorcs do tipo 
Sistcma-700 ou Super 700 compartilhando 
urn grande arquivo de dados em disco n'gido, 
a rede Pronet, da Prologica, consiste basica- 
mentc de urn gerenciador com disco n'gido 
de 10 MB, urn controlador e um processador. 
Ale'm de acessarem o arquivo central (cuja 
capacidade devera subir ano que vem para 
96 MB), as diversas estacoes de trabalho po- 
dem trabalhar, em processamento local, com 
seus proprios disquetes, impressora c plotter. 

Ja o equipamento lancado pela Digitus - 
o Digiplex - permite montar uma rede cm 
anel com ate 17 micromputadores DGT-1000 
operando em modo multiusuario, com os di- 
versos computadorcs (memoria minima de 
16 K RAM) funcionam como terminais inte- 
ligentcs acessando os arquivos cm disco (ate' 
1.4 MB) da unidade central. A rede possibi- 
lita ainda que os seus elementos comparti- 
lhem uma impressora comum ou que cada 
um trabalhc com a sua propria impressora. 

Ainda no ambito das redes - neste caso, 
as de teleprocessamento - a Embratel apre- 
scntou o Servico Cirandao. que consiste de 
basicamente quatro services : Comunica^ao 
entre Usuarios, nas modalidades mensagens 
(corrcio e secretaria eletronicos). quatro de 
avisos (guarda avisos que os usuarios rcce- 
berao ao cntrarem em contato com a rede) 
e mercado eletronico (ofertas de compra 
e venda de produtos e services); Informa- 
qSo (acesso a bases e bancos de dados nacio- 
nais abcrtos ao publico). Programas (possibi- 
lita ao usuario guardar os seus programas nos 
arquivos cm disco da Embratel ou adquirir 
programas desenvolvidos por software houses 
e comcrcializados via Cirandao) e Suporte ao 
Usuario (informacSes, reclamac.6cs etc., bem 




Disk drives Hordcio F500-CP, da Elebra, com 
controlador e ferragem para adaptacdo no 
CP-500. 

como o diretorio do usuario. que fornece o 
nome de todos os integrantes da rede e seus 
respectivos numeros de enderecamento). 

O acesso ao Cirandao sera fcito atrave's 
da rede telcfonica comutada, da Renpac - 
Rede Nacional de Comutacao de Pacotes (a 
iniciar sua operacao comercial no fim do ano) 
ou da Rede Nacional de Telex, e os valores a 
sercm pagos pclos usuarios irao englobar os 
custos das telecomunica^Scs, do Cirandao 
propriamente dito e das informa<;6es ou pro- 
gramas fornecidos por terceiros. 

LANCAMENTOS 

O Micro Festival do Rio de Janeiro nao 
apresentou muitos lani^amentos. Afi- 
nal. conforme desabafou Marcelo Ba- 
tista, da Digitus, "ha feiras demais" atualmen- 
te, e os fabricantes nao conseguem produzir 




DGT-1000 
com a unidade 
Digiplex, que 
permite usar o 
computador da 
Digitus no 
modo 

multiusuario, 
com 

compartilha- 
mento de 
discos. 



novidades importantes. em ritmo ta"o acelera- 
do. Examinando a situacao por outro angulo, 
Eernando Ferrane, da Itautec, questiona ate 
que ponto esse excesso de feiras comecara a 
cansar o publico. Assim, todos guardam os 
seus principais trunfos para o Congrcsso/ 
Feira da SUCESU, o maior e mais competi- 
tivo evento do setor. 

Isso, contudo, nao impediu que se vissem 
coisas novas e intcrcssantes na Ecira do Hotel 
Nacional. A Elebra, por cxemplo, mostrou o 
modulo Tipograph. que conferc capacidade 
grafica bit image (imprime tuflo que cstiver 
na tela: textos, desenhos etc.) e qualidade car- 
ta a impressora Monica. Lancou ainda o Hora- 
cio F500-CP (unidade de disco flcxi'vel de 
5 1/4" ja montada com controlador e ferra- 
gem propria para instalacao no CP-500, da 
Prologica) e libcrou para comercializaijao a 
partir de agosto pelos seus revendedores os 
drives Horacio TR (TRS-80) e AP (linha 
Apple), antes vendidos apenas cm OEM. 

A Bra scorn mostrou. ale'm do seu possan- 
te sistema BR 1000 multiusuario, tres pro- 
messas: a rede local, prevista para outubro, o 
microcomputador Foxy (a scr lancado em 
agosto c que devera funcionar como terminal 
inteligentc tanto do sistema multiusuario 
quanto da rede) c o sistema grafico de alta 
rcsolucao com ate 4096 cores selecionayeis, 
que devera chegar aos seus prime iros usuarios 
ano que vem. A Sisco mostrou o MS800, mi- 
cro monousuario com 128KB de memoria, 
video inteligente controlado por micropro- 
cessador 8085, com 20 K dc memoria RAM, 
dois disquetes de 5 1/4" e compatibilidade 
com CP/M 2.2. Para setembro, a empresa 
pretende colocar no mercado uma unidade 
Winchester de 5 ou 10 MB. 

Na area de suprimentos, a Supply lancou 
a maquina Perfect Data modelo 200 para lim- 
peza e recondicionamento de disquetes (dis- 
poni'vel a partix de agosto), os kits Perfect 
Data para limpeza de micros e drives, os dis- 
quetes (8" e 5 1/4") e fitas magne'ticas (600, 
1200 e 2400 pes) marca MAC 1000 e a mala 
para transportar um micro tipo Apple com ate 
duas unidades de disquetes. A Verbatim mos- 
trou sua linha de discos flcxi'veis e fitas mag- 
ncticas fabricados cm Manaus. 

No estande da Prologica, tres novidades: 
Didata 16. que permite a um professor, atra- 
ve's de um CP-500, monitorar ate' 16 alunos 
operando em CP-300; e Superfile, disco Win- 
chester de 5 ou 10 MB que substitui o Speed 
File baseado em RAM e descontinuado pela 
empresa em virtude do seu alto pre?o. O CP- 
500 tambem ganhou novos disquetes de du- 
pla face e densidade dupla. 

Uma versao simplificada e mais barata, 
dcstinada a uso escolax, mas mantendo a 
compatibilidade com o Apple II Plus. £ o 
Elppa Jr., com memoria de 16 a 48 K e tecla- 
do mais simples, que a Victor do Brasil levou 
ao Mi:ro Festival. A MicrodigitaJ, por sua vcz, 
lancou uma serie de jogos para os TKs 83 e 
85 (Pulo do Sapo - 16 K) e TK 2000 Color 
(Ataque , Bombardeiro, Corrida, Papa Tudo e 
Pulo do Sapo, todos disponiveis em fita cas- 
sctc ou disquete). A empresa mostrou ainda 
a interface para impressora destinada aos TKs 
83 e 85 e prometida para fins de julho; a in- 
terface de disquete paia o TK-2000 Color; o 
videogame Onyx e o prototipo de um grava- 
dor de EPROM para as linhas 83 e 85. Ja a 
Itautec apresentou a familia 1-7000, com 
enfase para o Junior e Junior E, que ganhara, 
a partir de outubro, discos n'gidos Winchester 
delOMB. ■ 



Texto: Ricardo Inojosa 
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Conversao de enderecos 

A maioria dos iniciantes tern dificuldade para compreen- 
der a ordem inversa da representacao dos bytes de um ende- 
recp na forma LSB/MSB. Um exemplo de utilizacao desta re- 
presentacao 6 a maneira de informar ao computador o ende- 
reco de initio de uma sub-rotina em linguagem de maquina: 
POKE 16526, LSB.POKE 16527, MSB. 

Existem vdrias maneiras de fazer a conversao de um ende- 
reco decimal para a forma LSB/MSB, mas uma em especial se 
destaca pela ticnica usada para transferir o trabalho ao micro: 

100 INPUT "ENDERECO A CONVERTER " ; A 

110 A% = A + 65536 * (A > 32767) 

120 N=VARPTR(A%) 

130 POKE 16526, LSB : POKE 16527, MSB 

ou 
130 PRINT LSB, MSB 

O segredo desta forma de conversao esta na linha 120: na 
linha 110 o valor 65536 sera ou nao subtraido automatica- 
mente de A se o valor de A for maior ou nao que 32767 (veja 

a dica "Substitua o IF-THEN", Secao Dicas de MS n<? 25) e o 




WM 




CliGpPODfe 


Se voce tern pequenas rotinas e programas utilitarios 
realmente uteis tomando poeira em seus disquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulgd-los. En- 
vie-os para a REDAQAO DE MICRO SISTEMAS - SEQAO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centra, 
Rio de Janeiro, RJ, CEP 20030. Nao se esqueca de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta poderS ser util para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 
quetes... 








SINCLAIR 






r esultado armazenado na vartfvel inteira A%. Como as varid- 
/eis inteiras sao armazenadas em apenas dois bytes - LSB/ 
MSB — , basta descobrir o endereco N de A% na memoria, 
itrav^s da funcao VARPTR: o LSB estara na posicao N e o 
SiSB na posicao N+l . 


Multicurvas 

Faca mil curvas no seu video com esta dica em FAST : 
ap6s dar o RUN, entre com o numero de STEP dos lacos 
FOR-NEXT do programa e espere um pouco para ver o 
resultado. 

10 PRINT "QUAL NUMERO DE STEPS?" 
20 INPUT S 
30 CLS 






■ Roberto Quito de San t 'Anna — RJ 
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Anule o RAND USR 837 

Ja" foram publicadas varias dicas para proteger ou 
.desproteger programas em micros da linha Sinclair. 
Uma delas "Abria" programas protegidos usando o 
comando RAND USR 837. Esta dica que apresento 
anula o comando RAND USR 837 e torna o progra- 
ma novamente protegido. O procedimento 6 o seguin- 
te: em vez de utilizar o comando SAVE, use o RAND 
USR 757. Por exemplo, um programa assim: 
9900 SAVE "PROG" 
9910 RUN 
ficaria desta forma 
9900 FAST 
9910 RAND USR 757 
9920 SLOW 
9930 RUN 

sendo que assim, mesmo usando-se o comando RAND 
USR 837 ao invds do LOAD " " , o programa conti- 
nuara rodando e nao iii parar com a Mensagem de 
Erro. 


40 FOR F=0 TO 250 STEP S 
50 LET X=.i*F«C0S(F) 
60 LET Y=.i*F*SIN<F) 
70 PLOT X+20,Y+20 
80 NEXT F 








Adriano Pascoal Pereira — RJ 
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Descobrindo o autor 

Entre numa de detetive, e descubra o verdadeiro autor do 
seu DOS com esta simples dica: CMS "& " & 






Ricardo Colldrio - RS 


Antonio Passos Cavalcanti — PR 
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Logotipo em programas 



Coloque logotipos ou desenhos caracten'sticos de sua 
empresa em seu programa, ou mesmo suas iniciais artistica- 
mente desenhadas , com esta dica: 

65000 V1A=UARPTR<C*> 

65010 V2A-PEEK<V1A)-1«V3A«256«PEEK<V1A*2>*PEEK<V1A+1> 
65012 ZX-192*(64-W2A)/2tCLS:PRINTaZX,"",«W6A-U3A+W2A 
65030 FOR V4A=V3A TO V&AlPRINT CHRSCPEEK <U4A) ) , INEXT 
65060 ZX-ZX-isy5A-UF0R V4A=V3A TO V6A 

65062 PRINT8650,"NOV0 CODIGO ASCII DA POSICAO «"|V5A, 

65063 INPUT NUF N<128 OR N>191 PRINT3686," "sGOTO 65062 

65064 PRINT3<ZX*V5A>,CHR*CN>| 

65070 PRINT368A," "JPOKE U4A,N J V5A=V5A*1 SNEXT 

Para usd-la, carregue o seu programa; mas antes defina as 
Strings de tamanho apropriado necessirias fcomo, por 
exemplo: AS = "1234567890"); digite (ou MERGE) as li- 
nhas dadas na dica; execute o programa uma vez e, ao apa- 
recer READY, substitua sucessivamente o nome String AS 
da linha 65000 pelos nomes das Strings do seu programa a 
serem modificadas. Apos cada substituicao da linha 65000, 
digite (SEM COLOCAR NUMERO DE LINHA): 
GOTO 65000 < ENTER > 

e de os codigos desejados entre 128 e 191 (observe as modi- 
ficac5es na String, olhando na parte superior da tela). Ao 
terminar, liste o programa, confira, repita se for necessano, 
delete as linhas 64999 em diante e SAVE ou CSAVE o seu 
novo programa. 

Uma ultima observacao aos que acharem estranho os 
nomes utilizados nas varia"veis desta dica: e" proposital para 
evitar que as variaveis de seu programa coincidam com o 
nosso. 



Roberto Quito de San t' Anna - RJ 
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Liste os comandos 

Para obter uma listagem na tela de todas as palavras 
reservadas do COLOR BASIC e do Extended COLOR 
BASIC, basta executareste programa : 

i CLS:W=i087:F0RC=iT03:READLi,L2 

2 FORK =L iT0L2:U=W+i:P OK EtJ, PEEK <K) + 
(PEEK(K) >=128>*128:NEXTK,C 

3 DATA 43622,43878,33155,33263,333 
10.33366 



Geraldo Simonetti Bello - RJ 
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Trocando caracter 

Troque, com esta dica em Linguagem de Maquina, 
todos os caracteres do video que forem iguais aos do 
endere?o 16524 pelo caracter do endereco 16528. Essa 
rotina pode ser colocada em qualquer posicao da me- 
moria, \i que n5o utiliza enderegamento absolute 

16514 2A OC 40 23 06 16 OE 20 
16522 7E FE 08 20 02 36 BO 23 
16530 OD 20 F5 23 10 FO C9 

Ricardo Souza Viana ■ BA 
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Catendrias multiplas 

Desenhe varias curvas no seu micro, simulando a figura da 
Geometria Analitica, a Catenaria, com este programa: 



( > = i) // -:l 



(> = i 



i(3 REM "C" 

20 CLS 

30 PRINT"ESCOLHER STEP 

NPUT S:IF S<i THEN 30 

40 PRINT"ESCOLHER r A ' INITIAL 

) // -s INPUT Q:IF Q<i THEN 40 

SO PRINT"ESCOLHER 'A' FINAL (<=500 

0> // jUNPUTW8lF W>5000 THEN 50 

60 CLS:F0R 1*0 TO 83i :PRINT3I F ".": 

NEXT I 

70 FOR A=Q TO U STEP S 

80 PRINTa823,"A="«A ; 

90 FOR X=i TO 63 

100 Y=<A/2)*<EXP<X/A)+EXP<--X/A)) 

iiO D=35+A-Y:G=X+63:H=63~X 

120 IF G>i27 OR H<0 THEN 160 

IF D<2 OR D>42 THEN. 160 

SET(G r D):SET(H,D) 

NEXT X 

NEXT A 

PR INTo)896 , ''CATENAR I A Y= ( A/2 ) 
* ( EXP ( X/A ) +EXP < -X/ A ) ) " 
180 GOTO 30 



Armando Oscar Cavanha — RJ 



130 
140 
150 
160 
170 




Arredonde para o mats proximo 

Muitas vezes precisamos arredondar um niimero para o mimero mais pr6ximo, 
mas nosso equipamento nab aceita esta aproximacao, pois os micros da Linha Sin- 
clair arredondam sempre para um niimero menor. Assim, se pedirmos. por exem- 
plo, DMT 2.9, o micro responded 2, e nao 3, como seria mais 6bvio. 

Uma solufao 6 tornarmos o argumento (da fun?ao INT) negative pois desta 
forma invertemos o conceito e o que era menor passa a ser maior, \i que o mimero 
€ negativo : - INT (2.9)=3. 

Salomio M. Bangui/ ■ PA 
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Curso de 
Assembler - XIX 



N 



|esta licao vamos descrever o ultimo grupo de instru- 
coes do microprocessador Z80, ou seja, o grupo de Entrada e 
Saida. Este grupo de instrucoes 6 utilizado para a comunicacao 
com perifdricos mapeados por I/O (lembre-se que os enderecos 
em um microprocessador podem ser mapeados por membria 
ou por I/O). Vejamos entao cada uma das instrucdes. 
1 — Input para Acumulador 
Formato: EN a, (n) 

Operagao: O byte contido na porta n 6 transferido para o regis- 
trador A (Acumulador). 
Codigo Objeto: 

IN a , ( n ) 



110 110 11 

—I 1 1 1 1 — I 1— 



nnnnnnnn 

— 1 1 1 1 1 — 1 1 — 



Descrigdo: O mimero da porta (que ira" variar sempre de a 

225) e" especificado no operando n. O dado existente na porta 

n e transferido para o Acumulador. 

Instrugdo: IN a^n) 

Ciclos de mdquina: 3 

States (T): 11(43,4) 

Flags afetadas: Nenhuma 

Exempb: Se o conteudo do Acumulador 6 23H e o byte 7BH 

esti disponivel no perife'rico cujo endereco mapeado por I/O 6 

01H, apos a execucao da instrucao IN a, (01H) o conteudo do 

Acumulador serd 7BH. 

2 — Input para Registrador 

Formato: IN r, (C) 

Operagao: O byte contido na porta cujo endereco se encontra 

no registrador C € transferido para o registrador r. 

Cddigo Objeto: 

IN r , (C) 



— 1 1 1 — 1 1 — 1 1 — 

1110 110 1 



H 1 1 1 — I h 



1 r r r 
— 1 1 1 1 1 1 1 



onde rrr pode assumir os valores que estao na figura 1 . 
Descrigdo: O registrador C conte'm o numero da porta da entra- 
da. O dado i transferido do dispositivo de entrada cujo ende- 
reco se encontra no registrador C para o registrador r. 
Instrugao: IN r,(C) 
Ciclos de mdquina (M): 3 
States (T): 12 (4,4,4) 
Flags afetadas: S - setada se o dado 6 negativo; senao 6 



000 
001 

10 

01 1 
100 
101 
1 1 1 



para rrr 

para rrr 

para rrr 

para rrr 

para rrr 

para rrr 

para rrr 



a registrador B 

a registrador C 

a registrador D 

a registrador E 

a registrador H 

a registrador L 

a registrador A 



Figura 1 

ressetada; 
Z - setada se o dado 6 zero; senao 6 ressetada; 
H - ressetada; 

P/V — setada se a paridade € par; senfo 6 resse- 
tada; 
N — ressetada; 
C - na"o afetada. 
Exemplo: Se o conteudo do registrador C 6 07H, o conteudo 
do registrador Be" 10H e o byte 7BH esta" disponfvel na porta 
cujo endereco i 07H. Apos a execucao da instrucao IN D, (C) 
o registrador D ira conter 7BH. 

Um tfpico uso desta instrucao consiste em efetuar a busca 
de um dado em uma porta de I/O (polling). Veja o exemplo a 
seguir: 





1 1; 


C.0FFH 


C ■*- PORTA 255 


LOOP 


IN 


B, (C) 


B «- DADO 0A PORTA 255 




:ik 


I ,L00P 


RCPETE SE MAO EXISTE DADO. 




IN 


A, (0FEH) 


A * 0A00 DA PORTA 254 



3 — Input e Lncrementa 

Formato: INI 

Operagao: O byte contido na porta cujo endereco se encontra 

no registrador C 6 transferido para o endereco de memdria apon- 

tado pelo par de registradores HL. HL i incrementado e B 6 

decrementado. 

Codigo Objeto: 

INI 



1110 110 1 

— » i 1 1 \ — ♦ f— 



10 10 10 

— I 1 1 1 — I — I 1 — 



Descrigdo: O registrador C contem o enderefo da porta de en- 
trada. O dado existente na porta 6 transferido para o endereco 
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de mem6ria apontado pelo par de registradores HL. Finalmen- 
te o registrador B e decrementado e o par de registradores HL 
e" incrementado. 



(HL) 

B *- 
HL -* 



*■ (C) 
(B-1 ) 
(HL+1 ) 



Instrugao: INI 

Ciclos de mdquina (M): 4 

States (T): 16 (4,5,3,4) 



Flags afetadas: S - desconhecida ; 




Z — setada se B— 1= 


- 0; senao 6 ressetada; 


H - desconhecida; 




P/V - desconhecida; 




N — setada; 




C - nao afetada. 





Exemplo: programa a seguir deve ler dados da porta 1 ati a 
porta 80, transferindo os dados para urn buffer na mem6ria: 





LD 


B.80 


;B ■>- 


Nr. de porta: 




1 D 


C,0 


;C * 


Nr. da porta lnicial 




LD 


HL .BUFF 


;ML «- 


enderego do buffer 


LOOP 


INC 


C 


;C *- 


C. 1 




INI 




;Le o 


conteudo da porta 




3P 


HI .LOOP 


;Repe 


te ate B = 



4 - Input, Increment a e Repete 

Formato: INIR 

Operagdo: byte contido na porta cujo endereco se encontra 

no registrador C 6 transferido para o endereco de memdria 

apontado pelo par de registradores HL. HL 6 incrementado e B 

e decrementado. Esta opera?ao se repete ate - que o conteudo 

do registrador B seja 0. 

Codigo Objeto: 

INIR 



1 


1 1 1 1 1 1 
110 110 1 


1 


110 10 

1 1111 1 



Descrigdo: O registrador C contdm o endereco da ponta de en- 
trada. O dado existente na porta e* transferido para o endereco 
de mem6ria apontado pelo par de registradores HL. O registra- 
dor B 6 decrementado e o par de registradores HL 6 incremen- 
tado. A instrucao termina quando o conteudo do registrador 
Be"0. 



(HL) -«- (C) 
B «- B- 1 



HL 



HL + 1 



Instrugao: INIR 

Gclos de mdquina (M): 4 (se B= 0); 5 (se B <> 0) 

States (T): se B= 0: 16 (4,5,3,4) 

se B<> 0:21 (4,5,3,4,5) 
Flags afetadas ;S -desconhecida; P/V - desconhecida; 
Z — setada; N - setada; 

H - desconhecida; C — nao afetada. 
Exemplo: Se o conteudo do registrador C 6 07H, o conteudo 
do registrador B e 03H e o conteudo do par de registradores 
HL 6 1000H. A seguinte seqiiencia de bytes esti disponivel no 
dispositivo cujo endereco 6 07H : 
51H 
A9H 
03H 



Portanto, ap6s a execucao da instrucao INIR, o conteudo do 
par de registradores HL sera" 1003H, o registrador B ira" conter 
e as posicSes de mem6ria a seguir tera"o estes dados: 

1000H 51H 
1001H A9H 
1002H 03H 

5 - Input e Decrementa 
Formato: IND 

Operagdo: O byte contido na porta cujo endereco se encontra 
no registrador C 6 transferido para o endereco de membria 
apontado pelo par de registradores HL. Tanto HL quanto o re- 
gistrador B sao decrementados. 
Codigo Objeto: 

IND 



1110 110 1 



-H 1 — I 1 — I — I 1— 

10 10 10 10 

1 1 1 1 I 1 1 



Descrigdo: O registrador C contdm o endereco da porta de en- 
trada. O dado existente na porta i transferido para o endereco 
de memdria apontadado pelo par de registradores HL. O regis- 
trador B e o par de registradores HL sao decrementados. 



(HL) «- (C) 
B -<- B-1 

HL «- HL- 1 



Instrugao: IND 

Gclos de mdquina (M): 4 

Sfafes/T/- 16 (4,5,3,4) 

Flags afetadas: S — desconhecida; 

Z - setada se B-1 = ; senao 6 ressetada; 

H — desconhecida; 

P/V - desconhecida; 

N — setada; 

C - na"o afetada. 
Exemplo: Se o conteudo do registrador C 6 07H, o conteudo 
do registrador B e 10H, o conteudo do par de registradores HL 
6 1000H e o byte 7BH esta disponivel no dispositivo cujo en- 
dereco 6 07H. Apos a execucao da instrucSo IND o endereco 
de mem6ria 1000H ird conter 7BH, o par de registradores HL 
ira* conter 0FFFH e o conteudo do registrador B sera" 0FH. 
6 - Input, Decrementa e Repete 
Formato: INDR 

Operagdo: O byte contido na porta cujo endereco se encontra 
no registrador C 6 transferido para o endereco de mem6ria 
apontado pelo par de registradores HL. HL e o registrador B 
sao decrementados. Esta operacao se repete ate" que o conteu- 
do do registrador B seja 0. 
Codigo Objeto: 

INDR 



1110 110 1 



H 1 r- 



H h 



10 1110 10 



Descrigdo: O registrador C conte'm o endereco da porta de en- 
trada. dado existente na porta 6 transferido para o endereco 
de mem6ria apontado pelo par de registradores HL. registra- 
dor B e o par de registradores HL sao decrementados. A instru- 
9S0 termina quando o conteudo do registrador B e 0. j 
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CURSO DE ASSEMBLER -XIX 



(HL) 


«• (O 


B *■ 


B- 1 


HL * 


HL- 1 



Instrugao: INDR 

Ciclos de mdquina (M): 4 (se B= 0); 5 (se B <> 0) 

States (T): se B=0: 1 6 (4,5 ,3 ,4) 

seB<>lO: 21 (4,5 ,3,4,5) 
Flags afetadas: S — desconhecida ; 
Z -setada; 
H — desconhecida; 
P/V — desconhecida; 
N — setada; 
C — na"o afetada. 
Exemplo: Se o conteudo do registrador C 6 07H, o conteii- 
do do registrador B 6 03H e o conteudo do par de registrado- 
res HL 6 1000H. Com isso, a seguinte seqiiencia de bytes esti 
disponivel no dispositivo cujo endereco 6 07H: 
51H 
A9H 
03H 
Portanto, apos a execucao da instrucfo INDR, o conteudo do 
par de registradores HL sera OFFDH, o registrador B ira" conter 
e | as posicoes ' de mem6ria a seguir tera"o estes dados: 
OFFEH 03H 
OFFFH A9H 
1000H 51H 
7 — Output para Acumulador 
Formato: OUT (n), A 

Operagao: byte contido no Acumulador 6 transferido para a 
porta a 
Codigo Objeto: 

OUT ( n ) . A 



— i — i 1 — i 1 1 1 — 

110 10 11 

— I — I — I — I — I — I — h— 

nnnnnnnn 

i i i i i i i 



Descrigao: O numero da porta 6 especiflcado no operando n e 
o dado existente no Acumulador e transferido para a porta n. 
Instrugao: OUT (n), A 
Ciclos de mdquina (M): 3 
States (T): 1 1(4,3 ,4) 
Flags afetadas: Nenhuma 

Exemplo: Se o conteudo do Acumulador 6 23H, apos a execu- 
cao da instrucao OUT 01H, A, o conteudo do dispositivo cujo 
endereco e 01 H sera 23H. 
8 - Output para Registrador 
Formato: OUT (C), r 

Operagao: O byte contido no registrador r 6 transferido para o 
dispositivo cujo endereco se encontra no registrador C 
Codigo Objeto: 

OUT (C),r 



1110 110 1 



H — I h 



H 1 h 



1 r r r 1 



onde rrr pode assumir os valores que estao na figura 1 . 
Descrigao: O registrador C conte'm o numero da porta de safda. 
O byte contido no registrador r 6 transferido para o dispositivo 
cujo endereco se encontra no registrador C 
Instrucao: OUT (C), r 
Ciclos de mdquina (M): 3 
States (T): 12 (4,4,4) 
Flags afetadas: Nenhuma 



Exemplo: Se o conteudo do registrador C 6 01 H e o conteudo 
do registrador D 6 5AH, apos a execucSo da instrucao OUT 
(C), D o byte 5AH estara presente no dispositivo cujo ende- 
reco 601 H. 

9 — Output e Incrementa 
Formato: OUTI 

Operacdo: O byte contido no endereco de mem6ria apontado 
pelo par de registradores HL 6 transferido para o dispositivo de 
saida cujo endereco se encontra no registrador C. HL 6 incre- 
mentado e B 6 decrementado. 
Codigo Objeto: 

OUTI 



1 


110 110 


1 


1 


10 1 

11 1111 


1 



Descrigao: registrador C conte'm o endereco da porta de sai- 
da. byte existente no endereco de mem6ria apontado pelo 
par de registradores HL € transferido para o dispositivo de sai- 
da cujo endereco se encontra no registrador C. registrador B 
6 decrementado e o par de registradores HL € incrementado. 



(C ) ■<- 


(HL) 


B -«- 


B- 1 


HL -*- 


HL+ 1 



Instrugdo.OUTl 

Ciclos de mdquina (M): 4 

States (T): 16 (4,53,4) 

Flags afetadas: S - desconhecida ; 

Z — setada se B— 1 = ; senao € ressetada ; 

H — desconhecida; 

P/V — desconhecida; 

N —setada; 

C — na"o afetada. 
Exemplo: Se o conteudo do registrador C € 07H o conteudo 
do registrador B 6 10H, o conteudo do par de registradores HL 
6 1000H e o conteudo da posicao 1000H de mem6ria £ 59H. 
Apos a execucao da instrucao OUTI o conteudo do registrador 
B sera" OFH, o par de registradores HL ira conter 1001 H e o 
byte 59H estara" presente no dispositivo de saida cujo endereco 
6 07H. 

10 — Output, Incrementa e Repete 
Formato: OTIR 

Operagao: byte contido no endereco de mem6ria apontado 
pelo par de registradores HL 6 transferido para o dispositivo 
de safda cujo endere?o se encontra no registrador C. HL € in- 
crementado e B 6 decrementado. Esta operacSo se repete at£ 
que o conteudo do registrador seja 0. 
Codigo Objeto: 

OTIR 



1110 110 1 

— I — i — i — i — y—i — i— 



10 110 11 

I I I I I I I 



Descrigao: O registrador C cont^m o endereco da porta de sai- 
da. byte existente no endereco de mem6ria apontado pelo 
par de registradores HL 6 transferido para o dispositivo de sai- 
da cujo enderefo se encontra no registrador C. Finalmente, o 
registrador B 6 decrementado e o par de registradores HL 6 in- 
crementado. A instrucSo termina quando o conteudo do regis- 
trador B 6 0. 
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(C) 
B - 
HL 



(HL) 
B- 1 
HL + 1 



Instrucao: OUR. 

Ciclos de mdquina (M): 4 (se b= 0); (se B <> 0) 

States (T): se B= : 16 (4,53,4) 

seB <>0:21(4,5,3 ,4,5) 
Flags afetadas: S -desconhecida; P/V — desconhecida; 
Z - setada; N - setada; 

H — desconhecida; C — nfo afetada. 
Exemplo: Se o conteudo do registrador C 6 07H o conteudo 
registrador B 6 03H e o conteudo do par de registradores HL 6 
1000H. As posicdes de memdria a seguir conterao estes bytes: 

1000H 51H 

1001H A9H 

1002H 03H 
Portanto, apos a execucao da instrucao OUR, o conteudo do 
par de registradores HL sera" 1003H e o registrador B ird conter 
0. O conjunto de bytes enviados para o dispositivo de safda cu- 
jo endereco 6 07H sao os seguintes: 

51 H 

A9H 

03H 
1 1 - Output e Decrementa 
Formato: OUTD 

Operagao: O byte contido no endereco de memoria apontado 
pelo par de registradores HL 6 transferido para o dispositivo de 
safda cujo endereco se encontra no registrador C. Tanto HL 
quanto o registrador B s3o decrementados. 
Codigo Objeto: 

OUTD 



1 


1 

1 


1 





1 


1 





1 


1 





1 





1 





1 


1 



Descrigdo: registrador C conte*m o endereco da porta de saf- 
da. O byte existente no endereco de mem6ria apontado pelo 
par de registradores HL 6 transferido para o dispositivo de sai- 
da cujo endereco esta" contido no registrador C. registrador 
B e o par de registradores HL sao decrementados. 




Instrugao: OUTD 

Ciclos de mdquina (M): 4 

States (T): 16 (4,5,3,4) 

Flags afetadas: S — desconhecida ; 

Z — setada se B- 1 = ; senao 6 ressetada; 

H — desconhecida; 

P/V — desconhecida; 

N - setada; 

C - nao afetada. 
Exemplo: Se o conteudo do registrador C 6 07H, o conteudo 
do registrador B 6 10H, o conteudo do par de registradores 
HL e 1000H e o conteudo da posicao de memoria 1000H 6 
59H. Apos a execucao da instrucao OUTD o par de registra- 
dores HL utf conter OFFFH e o conteudo do registrador B 
serf OFH. O byte 59H foi enviado para o dispositivo de safda 
cujo endereco 6 07H. 



12 - Output, Decrementa e Repete 
Formato: OTDR 

Operagao: byte contido na posicao de mem6ria apontada 
pelo par de registradores HL 6 transferido para o dispositivo 
de safda cujo endereco se encontra no registrador C. HL e o 
registrador B sao decrementados. Esta operacao se repete 
atd que o conteudo do registrador B seja 0. 
Codigo Objeto: 

OTDR 



1110 110 1 



H 1 — I 1 — I — I »- 



10 1110 11 

i i i i i i i 



Descrigdo: registrador C conte'm o endereco da porta de en- 
trada. byte existente no endereco de mem6ria apontado pe- 
lo par de registradores HL 6 transferido para o dispositivo de 
saida cujo endereco se encontra no registrador C. registrador 
B e o par de registradores HL sao decrementados. A instrucao 
termina quando o conteudo do registrador B £ 0. 



(C) 

B 

HL 



+■ (HL) 
B- 1 
HL- 1 



Instrugao: OTDR 

Ciclos de mdquina (M): 4 (se B= 0); 5 (se B <> 0) 

States (T): se B= 0: 16 (4,53,4) 

seB<>0: 21 (4,5,3,4,5) 
Flags afetadas: S - desconhecida; 
Z — setada ; 
H - desconhecida; 
P/V — desconhecida; 
N - setada; 
C - nao afetada. 
Exemplo: Se o conteudo do registrador C 6 07H, o conteudo 
do registrador B 6 03H, o conteudo do par de registradores 
HL 6 1000H e o conteudo das posicdes de memoria sab as se- 
guintes: 

OFFEH 51 H 
OFFFH A9H 
1000H 03H 
Portanto, apos a execucao da instrucao OTDR, o conteudo do 
par de registradores HL sera" OFFDH e o registrador B-ira' con- 
ter 0. Os bytes que foram enviados para o dispositivo de safda 
cujo endere?o 6 07H sao os seguintes: 
03H 
A9H 
51H 
Com as instrucdes q 

Com as instrucdes que abordamos nesta licSo completamos 
a descricSo do set de instrucdes do microprocessador Z80 e en- 
cenamos o nosso Curso de Assembler. Durante 19 mesesesti- 
vemos juntos e agora voce ja" possui as informacdes necessanas 
para elaborar seus proprios programas. Se voce nSo souber por 
onde comecar, analise os programas que sao normalmente pu- 
blicados em revistas especializadas e aproveite para estudar a 
estrutura de programac^o feita por quern tern mais experien- 
cia. Va" em frente e boa sorte! ■ 



Amaury Correa de Almeida Moraes Junior 6 formado pelo curso de 
An a" Use de Sis terms da FASP, ten do feito di versos cursos de aperfeicoa- 
mento nas trees de Eletr6nica Digital e Microprocessadores, e atualmen- 
te tr aba I ha na dree de microcomputadores para o City bank. 



MICRO SISTEMAS, ago«to/84 



81 



Micro-Master MK-1, da Rifran: 

computador educacional 
para estudantes de eletronica 



Um sistema de baixo 
custo voltado para 
estudo, ensino e 
desenvolvimento de 
microprocessadores. Deste 
modo, o Micro-Master MK-1 e' 
definido por seu fabricante, 
a Rifran Eletronica, que 
lanc.ou o produto em outubro 
do ano passado, durante a III 
Feira Internacional de 
Informitica. 

Baseado no Z80, da Zilog, 
com 158 instni9oes e todos os 
sinais desse microprocessador 
acessi'veis num conector de 40 
pinos, o MK-1 pode ser usado 
como prototipo para 
desenvolvimento de software e 
hardware em aplica^oes 
especificas com o uso da 
linguagem Assembler do Z80, 
8080 e 8085. Uma aplica?ao a 
ni'vcl industrial seria de 
si stem as de controle de 
processos, como, por exemplo, 
o desenvolvimento de um 
programa que desligasse 
ma'quinas que atingissem uma 
determinada temperatura. Para 
o aprendizado, ele auxilia na 
feitura de rotinas operacionais, 
como calculos, e e excelente 
para o uso da linguagem 
Assembler no estagio de 
calculo. Sort e organizacSb de 
sistemas. 

O MK-1, que mede 20x25 ,5x 
4,5 cm, possui 2 Kb de 
memoria RAM e a mesma 
quanbdade de ROM;ambas 
podem ser expandidas 
respectivamente para 4 e 8 Kb. 
O teclado, de 36 teclas com 
feedback tactil, incluindo 19 
teclas de funedes poderosas do 
monitor, nao possui a 
facilidade alfanumerica dos 
micros tradicionais. O display 
LED 0,56", por sua vez, 
conta com recursos 
alfanumericos, mas apresenta 
apenas seis di'gitos, o que 
muitas vezes faz com que as 
informa$Ses sejam pouco 
definidas. 

O computador educacional da 
Rifran conta ainda com 
interface para gravador casscte 
com velocidade de transmissao 
de 165 cps, soquetes para 
circuitos opcionais como PIO 
E CTC e auto-falante 




O MK- 1 permite o desenvolvimento de hardware 

e software para aplicacoes especi'ficas, inclusive 

a ni'vel de controle de processos. 



embutido para efeitos sonoros. 
Sua fonte de alimentaca*b e 
100/220 VAC, 50/60 Hz -9 
VDC/600 mA. 
O Micro-Master MK-1 tern 
uma boa configuraijao de 
hardware , inclusive de 
barramento com todos os 
sinais, o que facilita a cria^ao 
de outros hardware a partir do 
existente. No entanto, todo o 
hardware, a ni'vcl de acessorio, 
esta" dentro da maquina, nao 
havendo opgao do fabricante 
de interface para video ou 
comunica^ao de dados. 

SOFTWARE 

O Micro-Master executa 
programas na linguagem de 



maquina dos micro- 
processadores Z80, 8080 e 
8085. Seu monitor traz alguns 
recursos especiais, tais como 
insercSo e coloca^ao de 
breakpoints (paradas), 
execucao de programa passo a 
passo, inscrc^fo e extrac£o de 
linhas de programa com 
recoloca^Jo automatica dos 
endere^os, calculo de 
endere^os relativos para as 
instruc/ies JR e DJNZ e 
transferencia de blocos de 
dados na memoria RAM. 
Convem ressaltar, portanto, 
que um computador do tipo 
do MK-1 nao pode ser 
utilizado como um micro 
tradicional. Ele nao dispde, 
por exemplo, de um 
disassemblador nem de um 



montador Assembler, embora 
esses implementos nao altcrem 
em muito seu prec,o de venda. 
Um assemblador permitiria ao 
usuario montar um programa 
Assembler no MK-1 da mesma 
forma como num micro da 
linha TRS-80. Esse software, 
porem, pode ser desenvolvido, 
embora no caso o usuario deva 
ser um especialista. 
A maquina vcm acompanhada 
de um manual com exemplos 
de programa^ao. O manual, no 
entanto, peca a nivel de 
apresenta?ao grafica e conteudo. 
Os exemplos de utiliza^ao do 
equipamento nao sao em 
numcro suficiente e poderiam 
chegar a um nivel maior de 
dificuldade. Alem disso, faltam 
expbcaQoes mais detalhadas 
sobre a opcrac^b do 
equipamento e a parte final do 
manual na"o vem traduzida, o 
que pode causar interpreta«;6es 
erroneas para quern nao domine 
o Ingles. 

Os programas de demonstraijao 
que acorn panham o 
equipamento sao bastante 
simples. Ha o toque de telefone, 
letreiro dinamico, cronometro, 
flash, sirene policial, miisica, 
relogio, orgao (com notas de a 
F) e a palavra Brasil piscando no 
visor. 

Como o fabricante nos enviou o 
equipamento apenas com a 
memoria EPROM 2716 para 
2 Kb e com os programas de 
demonstra^cTo, nao puderam ser 
analisados alguns acessorios 
opcionais, como o intcrprete de 
Tiny BASIC em 2 Kb de ROM; 
o GEP, program ador de EPROM 
para memorias de 1, 2 e 4 Kb; e 
o MSS, um sintetizador de voz, 
que parecem ser os acessorios 
mais interessantes. Os outros, 
ja disponi'veis no mercado 
segundo o fabricante, sao 
EPROM 2732 virgem para 4 KB; 
RAM 6116 de 2 Kb; Z80 PIO 
para interface com perifericos 
(16 linhas); Z80 CTC para 
realizar contadores e 
temporizadores; e MSG, um 
gerador de efeitos sonoros ■ 
especiais. A 



Tex to: Lucio Santos 
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OMPONENTy 

' ELETR&N1CA ltda 



SEU MICRO EM 

BOA COMPANHIA 

ASSISTENCIA TECNICA 

AUTORIZADA: 



PROLOGICA 
UNITRON 
DIGITUS 
ELEBRA 



(031) 201-5156 

Rua Espirito Santo. 1868 

Belo Honzonte — M.G. 
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Uma Empresa a 

Servico da 
Micro Eletronica 



Assistencia 

Tecnica 
Autorizada 

PROLbOICA 

UNITRON 

ELEBRA 



Rua St.» Rita Durao, 384 

Funcionarios 

Tel.: (031) 288-4144 

Belo Horizonte — MO. 
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CENTRO DE PESQUISAS, 




mcpoeouipo 


ESTUDOS E ENSINO 
TECNOLOGKX) E DE 
INFORM ATIC A DE MINAS 
GERAIS LTDA. 


COMPUTADORES 
E PERIFERICOS 

UNITRON 
MICROCRAFT 

VENDAS 
LEASING 

PROGRAMAS 
CURSOS 

ASSISTENCIA 
TECNICA 


Ja estao abertas as 
inscrigoes para 
o curso de Analises 
de Sistema, com 
estagio garantido 
para todos os alunos 
em nosso CPD 




Rua Tamoios n°. 462/911 

Rua da Bahia n°. 504 - 4° andar 

B. Horizonte ■ M. Gerais 




Av. Mai. Camara, 271 s/loja 101 j 












PARA PROBLEMAS COM MATERIAL DE 

DESENHO ■ PINTURA ■ ENGENHARIA 
PAPELARIA ■ ESCRITORIO ■ MAQUINAS P/ 
ESCRITORIO E SUPRIMENTOS EM GERAL 



O BEL-BAZAR 
ELETRONICO 



ooda voc« AINOA enconlta preco 
> qmlkUde d> ANTIGAMENTE! 

AV. ALMIRANTE BARROSO, 81 • U "C" 

TEL: 262-9229 • 262-9088 - 2408410 - 221-8282 

RIO DE JANEIRO - CASTEL0 



MICROCITY 

compvlodoras e sistemos 



MICROS, PERIFERICOS 
E SUPRIMENTOS 

A loja onde voce 

tern assistencia na 

compra, na aplicacao 

e manutencao de seu 

equipamento 

LITERATURAE CURSOS 

ESPECIALIZADOS 

CONSULTE-NOS 
SEM RECEIO 



R. Paraiba, 1256 Savassi 
Tel.: (031) 227-4291 
Belo Horizonte — M.G. 



"MIKROS" 

AGORA NO 

LEBLON! 

Av. Ataulfb de Paiva 566 - Loja 211 
Rio de Janeiro — Tel.: 239-2798 



APROVEITE OS PRECOS 

"INCRl'VElS" DA MIKROS 

IX) LEBLON. APOS SLA 

EWXJA DE 1NAUGURACAO. 

• MICROCOMPUTADORES 
Linhas Sinclair. TRS-80 \ppli et« 

• PERIFERICOS 

lmpressoras. videos, intrrtaccs. etc 

• SOFTWARE SAC. E IMPORT. 

Mais de 7 00 programas e io^os 
de todos os tipos 

• CURSOS DE BASIC 

• SUPRIMENTOS 

Formularios continuos, fitas. disketes. etc 



PROFISSIONA1S 

ALTAMENTE ESPECIALIZADOS 

PARA ATENDE-LO 




ROBOTIC 



— MICROCOMPUTADORES 
DE TODAS 

AS MARCAS 

— SUPRIMENTOS 

— PECAS E PARTES PARA 
MICROCOMPUTADORES 

— JOGOS ELETRONICOS 



. 



RUA BARATA RIBEIRO. 370 

— Loia 105 APART HOTEL — 

COPACABANA — RIO — RJ 

TEL. (021) 257-6396 




Pare de Sonhar.. 



Os leitores de MICRO SISTEMAS nao tern bola 
de cristal para adivinhar a cor de seus produtos. 



ANUNCIE EM MICRO SISTEMAS, 
E TENHA UM MACRO RETORNO. 



T*Y 



T"y 



Av. Pres. Wilson n.° 165 — gr. 1.210/16 — Tel: 
CEP: 20.030 — Rio de Janeiro — RJ. 



1021) 262-5259/262-6437 



Rua Oliveira Dias n.° 153 — Jd. Paulista — Tel: (011) 583-3800/8537758 
CEP: 01433 — Sao Paulo — SP. 



IN FORM AT IC A AO 
ALCANCE 
DE TODOS 




ENTRE NA ERA 
DOS COMPUTADORES 



NOVAS 

TURMAS 



MATRICULE-SE JA 



• Introdugao ao Processamento 
de Dados • Digitaqao • Basic 

• Cobol • RPG • PL 1 • Fortran 

• Assembler • Mumps 



255-5396 -227-7417 



Copa — Centro — Tijuca — Meier 
Madureira — N. Iguagu — Caxias 



DATABERA* — PROCESSAMENTO 
DE DADOS Rio de Janeiro 



AGORA E MAIS FACIL ASSINAR 



Para 



-—"•ST - ** 



/Micro 



segui 
de seus 



repress 



ntantes 



RIO DE JANEIRO 

ATI Editors Ltda. 

Av. Presidente Wilson. 165 - GR. 1210 

CEP 20030 - Tels.: (021) 262-5259 

SAO PAULO 

ATI Editors Ltda. 
Rua Oliveira Dias, 153 
CEP 01433 - Teli. (01 1 ) 853-3800 
853-7758 

RECIFE 

Monte Siao Distr. Nordeste Ltda. 

Rua Almeida Cunha, 65 

CEP 50000 - Tel.: (081) 222-1699 

GOlANIA 

Tiago Motta Araujo 

Rua 6. n9 310 -CEP 74000 



BELO HORIZONTE 

Profissional Com. Rep. Editoriais Ltda. 
Rua Guajajaras, 410 - Cj. 305 
CEP 30000 - Tel.: (031) 222-8679 

PORTO ALEGRE 

Aurora Assessoria Empresarial Ltda. 

Rua Uruguai. 35 - sala 622 

CEP 90000 - Tel.: (0512) 26-0839 



ttU 




circuitos 

DIGITAIS 

HERBERT TAUB Q 

microproLsadores 




TAUB, H., Circuitos Digitals e 
Microprocessadores, Editora 
McGraw-Hill. 



| Este livro destina-se as a>eas de 
projetos Idgicos e microprocessa- 
dores, cobrindo todos os princi'- 
pios logicos de sistemas digitais e 
do projeto Idgico. Na parte de mi- 
croprocessadores, o estudo con- 
centra-se no modelo 8080, por6m 
sa"o fornecidos dados detalhados 
que podem ser aplicados em ou- 
tras unidades. 

Mais de 300 problemas cuida- 
dosamente elaborados realcam a 
utilidade pratica deste texto, que 
traz lamMm explicacdes simples 
e claras sobre flip-flops (capftulo 
4), memdrias (capftulo 6) e um 
tratamento completo sobre con- 
troladores, permitindo uma ficil 
transica"o de projetos orientados 
de hardware para projetos orien- 
tados de software. 



O-SEQ. 
COMPUTADGR 

PESSOAL 



MITCHELL WAITC •MJCHAR PAROtt 




WAITE, M; PARDEE, M, O 
Seu Computador Pessoal, 
Editora Campus. 

| Efte livro proporciona ao ini- 
ciante no campodos microcompu- 

MICRO SISTEMAS, agosto/84 



tadores pessoais o conhecimento e 
confianca necessarios para tirar o 
maximo proveito deste poderoso 
instrumento de trabalho. 

Atraves de um texto simples, 
numa linguagem bastante acessf- 
vel, ele explica o que significa 
possuir um microcomputador — o 
que se pode fazer com ele, de ma- 
neira isto vem facilitar a vida do 
usuaVio e como este deve proceder 
ao comprar um, avaliando-o para 
seus prdprios usos — apresentando 
estes equipamentos como m^qui- 
nas simples e fdceis de controlar 
que na verdade sa"o. 

De especial interesse 6 o capf- 
tulo que fornece uma andlise com- 
parativa dos 30 mais populares 
micros nacionais e estrangeiros de 
uso pessoal ou para a pequena 
empresa, considerando custos, 
capacidade, modelos etc. 




MIRSHAWKA, V., 

TK Divertindo; TK Lembrando; 

TK Calculando, Livraria Nobel. 



| TK Divertindo, TK Calculan- 
do e TK Lembrando sao livros 
dedicados especialmente aos mi- 
crocomputadores baseados na 16- 
gica Sinclair. Dirigindo-se aos ini- 
ciantes em computaca"o, em cada 
um dos volumes o leitor encontra 
as orientacdes mfnimas para a uti- 
lizaca"o do equipamento: como 
manipular corretamente o teclado 
para digitar programas; relapa"o 
das palavras-chaves que podem ser 
acessadas com uma unica tecla; 
primeiros socorros, indicando a 
solucao para alguns dos problemas 
mais comuns encontrados pelos 
usuaTios durante as operapdes 
com a maquina, e como armaze- 
nar um programa no gravador e 
recuperS-lo posteriormente. 

A colecSo complete mostrara 
ao leitor a digitacao etapa por 
etapa, linha por linha de um pro- 
grama, orientando para os funda- 
mentals truques de programacao. 
Com base nos 100 programas indi- 
cados, o leitor poder£ programar 
seus pr6prios jogos ou entao resol- 
ver seus problemas de MatemcSti- 
ca, Ffsica, Qufmica, Finances ou 
Engenharia. 






Nunca 
compreuma 

coisa que voce 
nao vai usar. 
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Leve logo um microcomputador 
TK 85, porque ele e realmente facil de 
usar: ja vem com manual de instrucpes, 
que ensina,em portugues claro, 
a linguagem Basic. 

A partir dai, voce pode preparar 
seus proprios programas ou utilizar as 
centenas de programas que ja existem 
no mercado,para cadastrar clientes, controlar 
estoques, manter em ordem o oroamento 
familiar, fiscalizar a conta bancaria, estudar 
matematica, estatfstica, jogar xadrez, guerra 
nas estrelas, e o que mais voce puder imaginar. 
E alem disso tudo, o TK 85 tern 
tambem o pre^o mais acessfvel do mercado. 
Peca uma demonstragao. 



TK 85,o micro que voce pode usar. 



rasasEDgEffl 



computadores pessoais 



CURSOS 



• A pro-informAtica SIS- 

TEMAS CONSULTORIA E TREI- 
NAMENTO oferece regularmente 
cursos de Cobol, Basic, Basic 
Avancado, e Assembly com tur- 
mas reduzidas. Alem das aulas 
prSticas, os alunos dispdem dos 
computadores com assistencia de 
monitores em horSrios extra-aula. 
Av. do Contorno. 6608, Savassi. 
Tel.: (031) 225-7666- Belo Ho- 
rizonte. 

• A PRODATEL Processamento 
de Dados de Telecomunicacdes, 
abre inscricoes para os cursos: 
Programacab em Linguagem: Co- 
bol, PL-1, Mumps e Basic. An^li- 
se de Sistemas, Teleprocessamen- 
to. Banco de Dados, Automacao 
de Escrit6rio, Digitacao. Aulas 
pr^ticas em computadores IBM e 
Digitus. Informacoes Rua Curiti- 
ba, 689/7? and. Centro e Savassi. 
Tel.: 201-9323, BH/MG. 



• A Mikro Informcitica continua 
oferecendo com sucesso os seguin- 
tes cursos: Informa'tica p/jovens, 
OperacSb e Programaca"o de mi- 
crocomputadores, Linguagem Ba- 
sic e Cobol. Inscricdes e informa- 
coes a Av. Af. Pena, 952/522. 
Tel.: 222-3035 BH/MG. 
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VENDO 



• A Lourdes Inform^tica, inicia- 
ra" novas turmas de Basic I e Ba- 
sic Avancado, a partir de 06.08.84, 
de manna" e a noite. Inf. e insc. 
Tamoios, 530 - Fone: (031) 201- 
7869 - Belo Horizonte/MG. 



SOFTWARE 



• Vendo fita c/10 prog, entre os 
100 que possuo, por apenas 15 
mil. Escreva p/Wagner Tranin Pp. 
Afonso Pena, 77/603 - 12200 - 
S. J. dos Campos - SP. Tel.: 21- 
6753. 

• Vendo interpretador Logo pa- 
ra TK-2000 ou Apple, 6timos re- 
cursos graficos, totalmente em 
portugues e gravado em fita, in- 
formacoes com Walmir Scaravelli, 
R. Adelino X. Silveira, 96 - Itu - 
SP: CEP 13300, Fone (011) 
482-1704. 

• Compilador Basic p/CP500 e 
QQR TRS - seu progr. 20 vezes + 
veloz acompanha disco ZBasic + 
manual 16 ORTN — cheque no- 
minal a Compuserv — Inf. Ass. 
Ltda. R. Amador Bueno, 155, 
Santos, SP, CEP: 11100. 



0rT »pro 



• Vendo ft. c/25 jogos 16K, 2 
em 3D p/TK, CP 200 e Sinclair 
Cr$ 15 mil. Sergio. Cx. P. 529 - 
09500 -S. C. Sul-SP. 

• Troca de programas (TRS-80) 
- o grupo de usua>ios brasileiros 
de TRS-80 dispoe de maisde 600 
programas para serem trocados. 
Correspondencia para Caixa Pos- 
tal 10376 - CEP 90000, Porto 
Alegre (RS). 

• CP500 - CP300 - TRS80 - 
DGT100/1000. Aplicativos, utili- 
tarios, jogos, compiladores — mais 
de 1000 programas — desenvolve- 
mos sistemas. Tel.: 571-0844 - 
RJ, (noite) Marcos. 

• Soft-TRS80 sist. comerciais 
tratar c/Prodadi - SEPN 509, Ed. 
Isis - loja 25, CEP: 70.750, Brasf- 
liaDF. Fone (061) 274-4779. 

• Vendo fita c/10 programas p/ 
Cr$ 17.000,00, entre eles sinte- 
tizador de voz, zaxxon tridimen- 
cional e varios importados, para 
microcomputador TK-85. Escreva 
para Joao B. Castro — Rua Licinio 
Leite Machado, 59 — Bairro San- 
tana — Sao Jos6 dos Campos, 
CEP: 12200, ou fone (0123) 
22-0420. 



EQUIPAMENTOS 



• Na Mikro voce encontra CP- 
500, TK2000, CP300, impresso- 
ras, drivers. Av. Af. Pena, 952/ 
522 - Tel.: 222-3035 BH/MG. 

• CP200 vendo praticamente 
novo tratar p/tel.: 237-6248 sec. 
eletronica Fernando — Rio de 
Janeiro. 



CLUBES 



• O melhor clube do Brasil para 
CP-200, TK-83, TK-85, R-470, 
CP-300, CP-500, DTG-100ecom- 
tfveis. Torne-se amigo do Compu- 
club inscricao gratis, e voce asse- 
gura o imediato recebimento de 2 
fitas com 6 excelentes programas 
gratis, de procedencia estrangeira. 
E mais ainda, voce passara" a rece- 
ber, regular e gratuitamente, bole- 
tins do Compuclub, com jogos e 
dicas especiais. Escreva-nos indi- 
cando o equipamento que possui 
e anexe cheque no valor de 
Cr$ 6.500,00, exclusivamente pa- 
ra cobrir as despesas de porte e 
embalagem do material a ser en- 
viado. Compuclub, Caixa Postal 
1795, 30000 - Belo Horizonte, 
MG. 
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MS 
N9 


NA PAGINA 


CORRECAO 


33 


16, no programa Editor Assem- 
bler para a linha Sinclair, segunda 
coluna, segundo paragrafo: 


2 - execute o comando POKE 16389, 1 15 c logo apos digite RUN; 

3 - . . . introduza o Editor Assembler (listagem 2). No final da digitacao de o comando NEW 
novamente; 

4 - escreva o programa em BASIC (listagem 1); 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
voce e quem decide o que, quando e como anunciar nos 
Classificados MS. Quanto voce tera que pagar? Isso tambem e 
decisao sua. Preste atencao: 

• cada linha de texto (30 toques, incluindo os espacos em bronco) 
custa Cr$ 2.000,00; 

• linhas incompletas serao cobradas como inteiras; 



• o pr&prio anunciante deve checar o valor de seu anuncio com o 
numero de linhas que ele contiver; 

• o anuncio deve vir acompanhado de um cheque nominal a ATI 
Editora Ltda; 

Os textos devem ser datilografados ou escritos em letra de forma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 
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„ ./Micro 

Sistemas 



Maiores informacdes pelos telefones: (021) 262-5259 - RJ ou (011) 853-7758 - SP. 






NOVO CP 300 PROLDGICA. 






pequeno 
grande micro. 

Agora, na hora de escolher entre urn 
microcomputador pessoal simples, de facil 
manejo e um sofisticado microcomputador 
profissional, voce pode ficar com os dois. 
Porque chegou o novo CP 300 Proldgica. 
novo CP 300 tern prego de 
microcomputador pequeno. Mas memoria 
de microcomputador grande. 

Ele ja nasceu com 64 
kbytes de memoria 
interna com 
^ possibilidade de 

^^ expansao de memo- 
ria externa para ate 
quase 1 megabyte. 
E tern um teclado protissional, 
que da ao CP 300 uma versatilidade incrlvel. 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco. 



64 K 



unico na sua faixa que ja 
nasce com 64 kbytes de memoria 




Pode ser 
acoplado a uma 
impressora. 






Compativel com 

programas em fita 
cassete ou em disco. 



Pode ser ligado ao seu aparelho de TV, da 
mesma forma que no terminal de video 
de uma grande empresa. 
Com o CP 300 voce pode 
tazer conexbes telefonicas 
para coleta de dados 
se utilizar 
de uma 
mpressora 

e ainda dispor de todos 
os programas existentes 
para o CP 500 ou o 
TRS-80 americano. E o que e melhor: 
voce estara apto a operar qualquer 
outro sistema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenho igual. 
CP 300 Proldgica. 
Os outros nao „ m p RO LOGICA 

fazem que ele faZ, | B microcomputadores 

pelo prego que ■■■ 
ele cobra. 



Pode ser ligado 
a um televisor comum 
ou a um sofisticado 
terminal de video. 



Permite 

conexao 
telefonica. 



R ES£RVAD EMERCAD 




AM 
Manaus- 234-1045 
•BA-Salvador - 247-8951 
•CE-Fortaieza - 226-0871 - 244-2448 
•DF-Brasiha 226-1523 - 225-4534 -ES-Viia Velha 
229-1387 - Vitona ■ 222-5811 -GO-Goiama - 224-7098 -MI 
Cuaba - 321 -2307 • MS-Campo Grande 383-1270 - Dourados - 421-1052 
• MG-Beio Honzonle - 227-0881 - Belim - 531-3806 - Cei Fabnciano - 841-3400 - Juiz 
de Fora - 212-9075 - Uberiandia - 235-1099- PA-Beiem - 228-0011 • PR-Cascavei - 23-1538 ■ Curi- 
liba - 224-5616 - 224-3422 - Foz do iguacu - 73 ; 3734 - londrma - 23-0065 • PE-Reole - 221-0142 • Pi-Teresma 
222-0186 • Rj-Campos - 22-3714 - Rio de Janeiro - 264-5797 - 253-3395 - 252-2050 • RN-Natai - 222-3212 • RS-Caxias do 
Sui - 221-3516 - Peiolas - 22-9918 - Porio Alegre - 22-4800 - 24-0311 - Sanla Rosa - 512-1399 •RO-Pono Veiho - 221-2656 -SP 
Barrelos - 22-6411 - Campmas - 2-4483 - Jundiai - 434-0222 Maniia - 33-5099 - Mogi das Cruzes - 469-6640 - P'taocaba 33 1470 - Ribeaao 
Preto - 625-5926 - 635- 1 195 - Sao Joaquim da Barra - 728-2472 - Sao Jose dos Campos 22-731 1 - 22-4740 - Sao Jose do R:o Preto 32-2842 - Santos 33-2230 
Sorocaba - 33-7794 • SC-Biumenau - 22-6277 - Chapeco - 22-0001 - Cnouma - 33-2604 - Flonanopons - 22-9622 - Jomviie 33-7520 • SE-Aracaiu - 224-1310 



Solicite 
demonstraca 
nos principal! 
magazines. 



Diskette 




Alta resolu^ao 
64 K RAM 



Interface de impressora 
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^ Microdigital apresenta 
o novo TK2000 color. 



Que tal urn micro de alia performance, que traz as principals caracteristicas 

dos equipamentos mais sofisticados e que nao exige de voce um grande 

investimento inicial?E que tal um micro que cresce de acordo com as suas 

necessidades? Sao estas as vantagens que vao fazer do novissimo 

TK 2000 Color um dos maiores sucessos no setor. 

Veja: ele tern 64K de memoria RAM e 16Kde memoria ROM, teclado profissional 

tipo maquina de escrever, recebe diskette e impressora com interface ja contido, 

trabalha em cores, oferece alta resoluqao grafica e som. 

Peqa uma demonstracao. Nunca tanto foi Ihe oferecido por tao pouco. 

Grande quantidade de software disponivel (entre eles: diversos aplicativos 

comerciais e jogos a cores de alta resoluqao grafica). 

Ele tern tudo que um 
micro deve ter.Menos opreco. 

Caixa Postal 54088 ■ CEP 01000 - Sao Paulo - SP - Telex N" (011)37.008 ■ Mide BR 

A venda nas boos casas do romo, lojas especializadas de fotovldeo-som e grandes magazines. 

Se voce noo encontrar este equipamento na sua cidade ligue para (011)800-255-8583. 






